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FOREWORD 


The  COBOL  Compiler  Validation  System  (CCVS)  Users  Manual  is  intended  as  a 
reference  manual  for  on-site  operations. 

The  system  was  developed  as  a  part  of  Project  6917  under  Contract  F19628- 
67-C-0424  for  the  Electronic  Systems  Division  (AFSC)  by  Information  Manage¬ 
ment,  Inc.,  San  Francisco,  California  94111.  The  project  monitor  was 
Mr.  Russell  A.  Meier,  ESMDA.  The  work  was  performed  during  the  period 
from  August  1967  through  January  1969. 

This  technical  report  has  been  reviewed  and  is  approved. 

WILLIAM  F.  HEISLER,  Colonel,  USAF 
Director,  Systems  Design  &  Development 
Deputy  for  Command  &  Management  Systems 
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ABSTRACT 


This  technical  report  consists  of  detailed  specifications  for  the  use  of 
the  COBOL  Compiler  Validation  System  (CCVS).  The  system  is  designed  to 
measure  the  compliance  of  a  specific  COBOL  compiler  against  the  American 
National  Standards  Institute  standard  COBOL  (ANSI  X3. 23-1968).  This 
report  describes  the  card  input  formats,  deck  structures,  tape  require- 
ments,  test  modules,  and  operator  procedures  required  to  use  the  system. 
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SECTION  I 


INTRODUCTION 

The  purpose  of  this  manual  is  threefold.  First,  it  provides  an  intro¬ 
duction  to  the  COBOL  Compiler  Validation  System.  This  introduction 
is  directed  both  to  prospective  users  of  the  system  and  to  those  who 
are  merely  interested  in  its  objectives  and  how  they  are  achieved. 

Second,  it  provides  detailed  instructions  in  the  use  of  the  CCVS  in 
measuring  COBOL  compilers  against  USA  Standard  COBOL.  Finally,  it  pre¬ 
sents  guidelines  that  may  be  useful  to  those  responsible  for  system 
maintenance  or  extension. 

The  manual  is  divided  into  four  parts.  Part  2,  which  immediately 
follows  this  introduction,  is  a  general  description  of  the  COBOL  Com¬ 
piler  Validation  System.  As  prelude  it  offers  a  brief  description 
of  how  USA  Standard  COBOL  is  structured,  then  discusses  the  design 
criteria  under  which  the  system  was  developed,  the  functions  performed 
by  the  system’s  components,  and  finally,  the  way  in  which  the  system 
is  used  in  measuring  the  degree  of  compiler  standardization. 

Part  3  presents  the  details  of  how  to  use  the  system.  It  describes 
the  control  information  needed  for  expanding  the  system  in  terms  of 
both  its  environmental  "knowledge"  and  its  repertoire  of  tests,  and  for 
generating  test  programs.  A  concluding  section  discusses  the  meaning 
of  the  results  obtained  from  executing  a  test  program  and  how  such 
results  can  be  traced  through  the  system  to  find  their  purpose  and 
resolve  suspected  compiler  faults. 

One  of  the  primary  design  objectives  of  this  system  is  the  ability  to 
run  on  any  computer  with  a  COBOL  compiler.  This  flexibility  places  a 
limit  on  the  detail  with  which  this  document  can  discuss  certain  facets 
of  the  system.  This  is  particularly  true  in  the  area  of  operating 
instructions.  Because  the  programs  generated  by  the 
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system  will  run  on  a  variety  of  computer-compilers,  this  manual  can 
only  enumerate  the  kinds  of  information  an  operator  might  require  and 
indicate  where  he  might  find  more  specific  instructions  for  operating 
within  a  particular  environment. 

Part  4,  therefore,  discusses  in  very  general  terms  the  kind  of  inform¬ 
ation  that  operating  systems  will  require  in  order  to  correctly 
compile  and  execute  the  system  itself  and  the  test  programs  it  gener¬ 
ates  . 


\ 
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SECTION  II 


SYSTEM  DESCRIPTION 


The  COBOL  Compiler  Validation  System  ( CCV/S )  is  designed  to  measure  11  e 
extent  of  compliance  of  any  COBOL  compiler  with  the  set  of  COBOL  lany- 
•age  elements  specified  in  USA  Standard  COBOL.  To  obtain  a  measurement, 
Lhe  user  indicates  to  the  CCV/S  the  composition  of  the  COBOL  language 
set  that  forms  the  baeis  for  a  particular  evaluation.  In  reeponse,  the 
CCVS  produces  one  or  more  COBOL  source  programs  that  contain  a  represen¬ 
tative  sample  of  statemente  drawn  from  the  specified  set.  This  program 
(or  set  of  programe)  ie  then  compiled  and  executed.  During  execution, 
the  results  are  compared  with  those  that  should  obtain  if  the  compiler 
had  been  implemented  according  to  the  standard. 

In  order  to  guarantee  a  common  baee  of  knowledge  among  the  readers  of 
thie  document,  a  brief  deecription  of  USA  Standard  COBOL  follows.  This 
description  is  excerpted  from  Chapter  1  of  X  3.4  COBOL  Information 
Bulletin  #9,  pages  1-1  through  l-6a. 

2.1  USA  STANDARD  COBOL 

In  order  to  represent  more  effectively  the  uses  for  which  COBOL  nas  been 
designed,  the  historical  organization  of  COBOL  specifications,  that  is, 
Identification  Division,  Environment  Division,  Data  Division,  and 
Procedure  Division  has  been  revised  within  the  proposed  standard.  The 
new  organization  is  oriented  around  a  functional  processing  module  (FPM) 
concept.  A  nucleus  (for  internal  processing)  and  seven  functional  pro¬ 
cessing  modules  have  been  defined.  These  functional  processing  modules 
are  Table  Handling,  Sequential  Access,  Random  Access,  Sort,  Report  U)riter, 
Segmentation  and  Library. 

The  Nucleus  has  been  divided  into  two  levels.  The  lower  level  contains 
the  elements  required  for  basic  internal  processing  and  is  a  proper 
subset  of  the  high  level.  Each  functional  processing  module  contains  two 
or  more  levels.  In  all  caees,  the  lower  levels  are  proper  subsets  of 
the  progressively  higher  levele  within  the  same  module.  In  addition,  some 
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functional  processing  modules  contain  a  null  set  as  their  lowest 
lev/el. 

This  organization  provides  the  flexibility  necessary  to  tailor 
specifications  in  such  a  way  that  they  will  satisfy  the  requirements 
of  a  large  variety  of  data  processing  applications.  At  the  same  time 
it  provides  the  ability  to  determine  with  a  greater  degree  of  certainty 
than  previously  possible  the  standard  elements  that  comprise  a  given 
compiler . 

The  requirements  for  an  implementation  of  USA  Standard  COBOL  can  be 
seen  by  referring  to  Figure  1.  A  COBOL  implementation  that  includes 
a  specified  level  of  each  of  the  functional  processing  modules  and  of 
the  Nucleus,  implemented  as  defined  in  the  standard,  will  be  considered 
to  meet  the  requirements  for  an  implementation  of  USA  Standard  COBOL. 


FUNCTIONAL  PROCESSING  IY10DULES 

NUCLEUS 

TABLE 

HANDLING 

SEQUENTIAL 

ACCESS 

RANDOM 

ACCESS 

SORT 

REPORT 

WRITER 

SEGMEN¬ 

TATION 

LIBRARY 

2NUC 

3TBL 

2SEQ 

2RAC 

2SRT 

2RPUJ 

2SEG 

2LIB 

2TBL 

1RAC 

1SRT 

1RPW 

1 SEG 

1LIB 

1 NUC 

1SEQ 

1 TBL 

null 

null 

null 

null 

nu  1 1 

NOTE:  The  shorthand  notation  used  in  this  figure  is  identical  to  that  used 
in  the  CCVS  control  cards.  It  consists  of  a  number  indicating  the 
level’s  position  within  the  hierarchy  and  a  three-character  mnemonic 
name . 

Figure  1.  Schematic  Diagram  Showing  the  Structure  of  USA  Standard  COBOL 
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As  an  illustration,  the  following  definitions  of  minimum  and  full  USA 
Standard  COBOL  are  given: 

The  minimum  USA  Standard  COBOL  is  composed  of  the  minimum  level 
of  each  functional  processing  module  and  of  the  Nucleus.  Because 
of  the  presence  of  null  sets,  the  minimum  standard  consists  of  the 
low  levels  of  the  Nucleus,  Table  Handling,  and  Sequential  Access. 

The  full  USA  Standard  COBOL  ie  compoeed  of  the  maximum  level  of 
each  functional  processing  module  and  of  the  Nucleus. 

Throughout  the  USA  Standard  COBOL  Specifications  there  are  certain 
language  elements  that  depend,  for  their  implementation,  on  particular 
types  of  hardware  components.  The  implementor  specifies  the  minimum 
hardware  configuration  required  for  a  given  implementation  of  USA  Stan¬ 
dard  COBOL  and  the  hardware  componente  that  it  supports.  Any  language 
elements  that  depend  on  hardware  components  for  which  support  is  claimed 
must  be  implemented.  Those  language  elements  that  are  not  implemented 
because  of  their  dependence  on  hardware  components  whose  support  is  not 
claimed  for  an  implementation  must  be  so  specified  and  their  absence 
will  not  render  the  implementation  non-standard. 

When  a  facility  is  provided  that  accomplishes  the  functions  specified 
by  any  particular  COBOL  element,  it  may  be  unnecessary  to  include  that 
particular  element  within  the  COBOL  source  program.  If  such  an  unneces¬ 
sary  element  doee  appear  in  the  source  program,  it  must  be  accepted 
by  the  compiler.  However,  if  the  element  does  not  lead  to  the  produc¬ 
tion  of  object  code,  no  substitute  statements  shall  be  required  within 
the  COBOL  source  program  to  accomplish  this  function. 

By  the  same  token,  the  inclueion  of  language  elements  or  of  functions 
that  are  not  a  part  of  the  USA  Standard  COBOL  specifications  will  not 
render  an  implementation  of  USA  Standard  COBOL  non-standard.  This  is 
true  even  though  it  may  imply  the  extension  of  the  list  of  reserved 
words  by  the  implementor,  and  prevent  proper  compilation  of  some  pro¬ 
grams  which  conform  to  the  Standard. 
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2.2  CCV/S  DESIGN  CRITERIA 


The  CCV/S  has  been  designed  to  fulfill  the  following  functional  require¬ 
ments  : 

1.  Thoroughness:  The  tests  dev/eloped  for  each  standard  module  must 
explore  a  compiler  and  its  generated  code  to  an  extent  sufficient 
to  give  a  high  probability  of  accuracy  to  its  evaluation.  This 
objective  has  been  accomplished  by  testing  a  particular  function 


to: 


a.  Exercise  all  its  basic  structural  variants.  Structural  vari¬ 
ants  arise  from  the  format  of  a  particular  statement  or  func¬ 
tion,  as  modified  by  the  applicable  syntactical  rules.  For 
example,  the  format 


operand-2 


yields  tha  basic  structural  variants 


V/ERB  operand-1  XX  operand-2 
V/ERB  operand-1  YY  operand-2 


b.  Test  a  sample  carefully  selected  from  the  set  of  possible 
combinations  of  operand  types  available  to  the  statement. 

c.  Test  several  variants  arising  from  the  operation  of  the 
ellipsis  (...). 

It  is  clear  that  in  the  majority  of  cases,  a  complete  test  of  each 
structural  variant,  with  every  possible  combination  of  operand  types 
would  result  in  an  inordinately  large  number  of  statements.  Therefore, 
a  high  degree  of  judgement  was  exercised  in  choosing  a  represen ta tive 
subset  of  test  statements.  Several  possible  types  of  tests  have  been 
eliminated  from  consideration. 

a.  No  tests  are  made  of  erroneous  statements.  For  example,  syntac¬ 
tically  incorrect  statements  are  not  generated.  Such  tests  would 
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result  in  failure  to  compile  or  in  run-time  errors,  either  of 
which  would  result  in  confusion.  This  is  especially  true  in  the 
case  of  run-time  errors  (e.g.,  CLOSEing  a  file  that  is  not  in 
open  status)  because  of  the  difficulty  of  associating  an  error 
with  a  particular  statement  in  a  program  with  a  number  of  errors. 

b.  Tests  are  not  designed  to  indicate  how  a  function  is  implemented. 
Thus,  the  CCl/S  does  not  attempt  to  distinguish  between  good 
(efficient)  and  bad  (inefficient)  implementations. 

c.  No  testing  of  non-standard  extensions  to  COBOL  is  made.  There 
are  three  classes  of  extensions  that  are  of  concern: 

1)  Valid  COBOL  features  that  are  not  specifically  referred  to 
by  the  standard  (e.g.,  CQMPUTATIONAL-n  and  the  APPLY  clause 
are  valid  COBOL  features  but  are  not  included  in  the 
standard  because  they  are  hardware-related  features). 

2)  Manufacturer  extensions  that  have  no  relation  to  the  remain¬ 
ing  COBOL  language.  (e.g.,  IBM’s  TRANSFORM  verb.) 

3)  Manufacturer  extensions  that  are  required  in  order  to  utilize 
a  standard  COBOL  feature,  (e.g.,  IBM’s  ORGANIZATION  and  RECORD 
KEY  clauses).  In  the  latter  case,  we  will  manually  include 
such  statements  in  test  programs  in  order  to  exercise  functions 
that  otherwise  could  not  be  tested  (e.g.,  Random  Access). 

The  Air  Force  will  have  the  same  facility  for  future  test 
program  modifications. 

d.  No  test  of  the  ENTER  verb  is  made  because  of  the  obvious  difficul¬ 
ties  involved. 

2.  Openendedness :  The  user  must  be  able  to  alter  the  population  of 
test  statements  to  conform  to  changes  in  the  USA  Standard  COBOL. 

For  this  reason,  the  user  is  provided  the  ability  to  add 

tests  to  the  population  file,  modify  the  content  of  existing  tests, 

delete  tests,  and  change  the  modules  against  which  a  test  is  selected. 
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3.  Ease  of  use:  The  CCVS  must  be  relatively  easy  to  use  now  and 
should  become  easier  to  use  in  the  future.  As  the 
COBOL  Standard  becomes  widely  used,  it  is  expected  that  more  and 
more  compilers  will  adhere  to  its  specification.  Thus,  future  ease 
of  use  should  not  be  compromised  in  order  to  expedite  testing  the 
system  using  current  non-standard  compilers. 

In  order  to  accomplish  this  objective,  the  population  of  test3  has 
been  designed  without  reference  to  current  implementations;  the 
standard  was  the  only  reference  material  used.  Thus,  a  "standard" 
compiler  would  compile  and  execute  those  modules  it  implemented 
with  no  adjustment  whatsoever.  This  is  the  condition  that  (hopefully) 
will  exist  in  the  future.  In  order  to  make  it  easy  for  the  user  to 
cope  with  current  implementations  that  are  far  from  standard,  a  souin- 
program  maintenance  feature  is  provided.  This  feature  facilitates  the 
addition,  deletion  or  modification  of  test  program  statements  in  order 
to  tailor  a  particular  test  program  to  a  non-standard  implementation. 

Additional  features  that  make  the  CCVS  easy  to  use  are: 

a.  A  test  case  can  be  specified  by  a  user  who  does  not  have  a 
detailed  knowledge  of  COBOL.  However,  the  activities  involved 
in  obtaining  a  test  program  that  executes  and  evaluating  the 
test  results  require  some  degree  of  expertise.  As  noted  above, 
these  activities  should  diminish  in  time. 

b.  Test  results  are  clearly  marked  when  they  do  not  correspond  to 
the  result  expected.  The  tests  are  documented  in  such  a  way  that 
the  offending  test  and  the  part  of  the  standard  to  which  it  appli[< 
can  be  quickly  identified. 

c.  The  system  is  thoroughly  documented  to  facilitate  future  maintenance 


d.  A  particular  compiler  may  be  measured  against  any  combination 
of  Functional  Processing  (modules  ( FPIY1 1  s ) ,  because  the 
CCVS  will  construct  test  programs  containing  a  single  FPiYl 
or  any  combination  of  FPIKPs  up  to  and  including  full  USA 
Standard  COBOL*  The  selection  of  FPffl’s  to  appear  in  a  par¬ 
ticular  test  program  is  based  on  a  single,  user  supplied  con¬ 
trol  card* 

4.  (machine  Independence:  Both  the  validation  system  and  the  test 
programs  it  produces  must  be  available  to  operate  on  any  computer 
for  which  a  COBOL  compiler  is  available  and  to  do  so  with  a  minimum 
of  reprogramming  or  manual  intervention.  The  only  hardware  re¬ 
quirement  imposed  by  the  CCVS  is  minimal  Input-Output  configura¬ 
tion.  The  system  requires  that  environmental  data  be  supplied 

for  each  compiler  that  will  be  validated.  Once  this  information 
has  been  supplied  to  it,  the  CCVS  automatically  generates  the 
Environment  Division  and  other  hardware-oriented  entries  required 
by  a  particular  test  program.  The  environmental  data  is  available 
to  the  CCVS  until  the  user  chooses  to  delete  it. 

5.  Extendability :  The  underlying  design  of  the  CCVS  must  be  of 
sufficient  generality  to  be  applicable  to  the  validation  of  the 
compilers  of  other  languages  against  their  standards. 

It  is  evident  that  one  criterion  usually  specified  for  computar  systams 
-  namely,  efficiency  -  is  missing  from  this  list.  Efficiency,  in  the 
case  of  the  CCVS,  is  of  relatively  little  importance,  because  it  will 
not  be  run  as  a  regularly  scheduled  program.  Furthermore,  its  effi¬ 
ciency  would  have  been  exceedingly  difficult  to  predict  since  it  de¬ 
pends  almost  entirely  on  the  design  point  of  the  compiler  being  tested. 

2.3  CCVS  Components 

The  validation  system  consists  of  three  computer  programs  and  a  data 
base.  One  program,  the  Selector,  operates  on  the  data  base  to  pro¬ 
duce  the  test  programs  called  for  by  the  user.  A  second  program, 

Source  Program  Maintenance ,  is  available  to  modify  the  selected  test 
programs  to:  l)  remove  statements  that  do  not  compile  or  run 
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successfully,  and  2)  add  statements  that  are  necessary  to  test 
non-standard  features  or  that  support  standard  functions.  The 
third  program,  Population  File  Maintenance,  is  available  to 
modify  the  set  of  available  test  statements  that  comprise  the 
data  base,  and  to  add,  delete  or  change  environmental  data. 

Thus,  the  CCVS  is  not  a  set  of  COBOL  Compiler  test  programs, 
but  rather,  a  system  capable  of  generating  a  very  large  number 
of  "tailored"  test  programs.  A  particular  test  program  can  be 
tailored  by  the  user  to  fit  the  environment  of  a  particular  COBOL 
compiler,  to  include  representative  operations  from  any  subset  of 
FPM's  and  to  exclude  tests  of  certain  functions  that  are  known  to 
be  inoperative  or  not  implemented  in  the  compiler  undergoing 
evaluation . 

The  compiler  test  programs  themselves  need  exist  only  during  the 
short  period  of  compiler  evaluation.  At  all  other  times,  the 
individual  tests  that  comprise  these  programs  are  resident  in  the 
Population  File. 

2.3.1  The  CCUS  Data  Base 

The  data  base  or  "Population  File"  contains  two  distinct  kinds 
of  information:  environmental  data  and  tests.  Both  types  of 
information  are  carried  as  unblocked  BO-character  COBOL  source 
card  images.  The  content  of  the  Population  File  is  discussed  in 
detail  in  3.1.2. 

Environmental  Data 

The  COBOL  Environment  Division  contains  a  number  of  implementor 
names  and  other  implementation  dependent  information.  To  a  lesser 
extent,  the  Data  Division  contains  information  of  a  similar  nature. 

In  order  to  make  the  specification  of  a  test  program  as  easy  as 
possible,  this  environmental  data  is  maintained  in  COBOL  Source  card 
form  for  every  compiler  of  interest.  Thus,  when  a  test  program 
is  to  be  generated  for,  say,  the  B-8500,  the  user  merely  specifies  the 
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computer-name  to  the  Selector  Program,  and  it  then  selects  the 
Environment  Division  entries  appropriate  to  modules  included  in 
the  test,  using  the  environmental  data  contained  in  the  B-8500 
table  on  the  Population  File, 

Environmental  Data  ie  carried  on  the  Population  File  in  order 
by  mnemonic  computer-name*  A  set  of  data  for  a  particular  com¬ 
piler-computer  coneiete  of  an  environment  header  card  followed 
by  a  eeriee  of  COBOL  eource  entries. 

2.3. 1.2  Teets 

A  Teet  coneiete  of  one  or  more  COBO^  statements  that  exerciee  a 
particular  COBOL  function  (e.g.,  a  verb).  These  etatements  are 
surrounded  by  a  eet  of  supporting  Data  and  Procedure  Division 
entries.  The  general  eequence  of  statements  within  a  Test  is 
as  follows: 

1.  Source  and  Result  fields. 

2.  Initialization  procedures. 

3.  The  actual  statements  that  perform  the  test. 

4.  Statements  that  move  the  test  name,  actual  result  and 
expected  result  to  a  common  work  area,  and  perform  the 
result  analysis  and  output  routine  that  is  common  to  each 
test  program. 

Tests  are  carried  on  the  Population  File  in  test  serial  number 
sequence.  Each  test  begins  with  a  test  header,  followed  by  the 
source  cards  comprising  the  test. 

The  various  system  utility  programs  comprise  a  special  category  of  tests. 
While  functionally  different,  they  reside  on  the  population  file 
in  order  to  utilize  environmental  data  in  the  same  way  as  tests. 

2.3.2  The  Population  File  maintenance  Program 

Thie  program  operatee  on  the  Population  File,  and  enables  the 
ueer  to  add,  modify  or  delete  both  environmental  data  and  tests. 
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The  moat  frequent  use  of  this  program  will  be  the  addition  of 
environmental  data  for  new  compilers  and  the  deletion  of  data  for 
compilers  that  are  no  longer  undergoing  tests.  The  modification  of 
tests  should  occur  only  when  the  USA  Standard  COBOL  changes.  Such 
a  change  may  require  the  addition  of  new  tests,  the  deletion  of 
existing  tests,  the  shifting  of  tests  from  one  level  of  a  module 
to  another  or  between  modules,  or  some  combination  of  these. 

These  operations  are  available  to  users  through  this  program. 

2.3.3  The  Selector  Program 

The  Selector  program  performs  three  functions: 

1.  Using  the  compiler-computer  name  supplied  by  the  user, 
locates  the  applicable  environment  data  and  saves  it. 

2.  Using  the  user  supplied  specification,  selects  those  tests 
appropriate  to  the  standard  modules  to  be  tested,  deletes  those 
tests  designated  by  the  user,  and  obtains  the  Environment 
Division  statements  required  by  the  selected  tests  from  the 
data  saved  in  Step  1.  For  convenience,  the  Population  File 
Maintenance,  Selector  and  Source  Program  Maintenance 
Programs  are  handled  like  tests  in  order  to  supply  them  with 
Environmental  Data. 

3.  Places  the  resulting  series  of  teste  and  supporting  statements 
in  the  order  required  for  compilation,  after  removing  certain 
data  items  with  identical  descriptions.  Operating  system  con¬ 
trol  cards  can  optionally  be  placed  before  and  after  the  source 
deck. 

2*3.4  The  Source  Program  Maintenance  Program 

This  program  is  used  to  modify  the  source  tape  of  a  test  program 
either  before  its  initial  compilation  or  between  compilations. 
Modification  may  be  necessary  because; 

1.  The  user  wiehes  to  test  one  or  more  non-standard  features 
known  to  be  implemented  on  the  compiler,  or 

2.  One  or  more  test  statements  did  not  compile  correctly  or, 
having  compiled,  caueed  the  object  program  to  end  abnormally. 
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2.3.5  The  Test  Program 


Each  test  program  produced  by  the  Selector  program  is  a  complete 
COBOL  source  program,  ready  for  compilation.  The  exact  composition 
of  a  particular  program  depends  on  the  contents  of  the  information 
that  the  user  supplied  to  the  Selector  program. 

Each  individual  test  within  a  program  audits  a  particular  feature 
or  element  of  the  COBOL  language  by  executing  one  or  more  procedural 
statements.  The  result  of  that  execution  is  then  compared  to  a 
pre-de termined  ’’standard"  result  by  a  support  routine.  A  parameter 
supplied  to  the  Selector  determines  whether  all  tests  results,  or 
only  those  that  differ  from  standard,  are  displayed. 

2.4  H0U1  THE  CCUS  IS  USED 

This  section  describes  the  general  activities  required  on  the  part 
of  the  user  to  validate  COBOL  compilers  using  the  CCU S.  The 
activities  are  divided  into  four  phases:  (l)  Initial  system  pre¬ 
paration,  (2)  Test  program  generation,  (3)  Test  program  execution, 
and  (4)  Test  result  evaluation. 

2.4.1  Initial  System  Preparation 

The  CCUS  is  delivered  on  an  IBM  360  loadable  tape.  Appendix  G 
contains  a  description  of  how  to  generate  the  Character  Code  Con¬ 
version  Program,  the  Selector  Program,  and  the  Population  File. 

The  initial  step  in  using  the  CCUS  is  the  compilation  of  the  Selector 
program  on  the  user's  computer.  This  program,  as  well  as  Population 
File  Maintenance  and  Source  Program  Maintenance,  is  written  in  a 
subset  of  minimum  USA  Standard  COBOL  to  insure,  as  nearly  as 
possible,  that  it  will  compile  into  a  useable  program  when  processed 
by  any  COBOL  compiler.  The  COBOL  subset  is  described  in  Appendix  4 
of  the  CEI  Detail  Specification,  Part  I  (reference  3). 

The  Selector  program  is  carried  on  the  Population  File  and  can  be 
selected  with  all  its  Environment  Division  entries  completed, 
providing  another  computer  is  available  on  which  to  make  the  selec¬ 
tion.  Alternatively,  the  user  can  manually  complete  the  necessary 
entries.  Once  the  three  phasee  of  the  Selector  have  been  compiled, 
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the  object  programs  must  be  interfaced  u/ith  this  implemantor  *  e 
Sort  Program  (the  Selector  does  not  utilize  the  COBOL  SORT  verb) 
and  Operating  System. 

The  Selector  program  in  its  object  form  may  now  be  used  to  generate 
the  Population  File  Maintenance  program  and  the  Source  Program 
Maintenance  program. 

The  Population  File  will  be  delivered  with  the  user’s  computer 
reflected  in  the  environmental  data  section.  Thus,  no 
Environment  Division  entries  are  required  prior  to  thie 
compilation.  After  compilation,  thie  program  muet  also  be 
interfaced  with  the  Operating  Syetem. 

Under  normal  circumstancee ,  the  Selector  program  will  be  com¬ 
piled  and  run  on  a  single  'baas’  computer,  ee  will  the 
Population  File  Maintenance  program.  These  programs  in  their  object 
form  will  be  used  to  generate  teet  program(s)  and  a  Source 
Program  Maintenance  program  for  each  compiler  to  be  validated. 

It  is  unlikely  that  the  Selector  program  itself  need  ever  be 
compiled  on  any  other  computer.  Furthermore,  it  seems  prudent 
to  limit  access  to  the  Population  File  Maintenance  program  and, 
hence,  it  too  need  eeldom,  if  ever,  be  recompiled. 

2.4.2  Test  Program  Generation 

The  firet  step  the  user  takee  when  he  desiree  to  generate  a  test 
program  ie  to  determine  whether  the  Population  File  contains 
environmental  data  for  the  implementation  in  question.  This  can 
be  ascertained  from  the  latest  print-out  from  the  Population  File 
Maintenance  program.  If  the  data  ie  not  there,  it  ie  created  in 
the  manner  explained  in  appendix  C  and  placed  on  the  file  by  a 
Population  File  Maintenance  run,  as  explained  in  Section  3*1. 

Next,  the  ueer  must  decide  which  functione  and  which  level  of  each 
function  he  wiehes  to  measure  the  implementation  against.  There  are 
at  leaet  two  waye  of  arriving  at  thie  decieion: 

1.  The  reaeon  for  evaluation  may  provide  the  criteria.  For 

example,  if  the  compiler  hae  been  named  ae  part  of  the  answer 
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to  a  Request  for  Proposal,  the  RFP  may  contain  a  list  of  the 
modules  that  must  be  implemented,  or  the  issuing  agency  may 
have  a  standard  requirement  that  provides  this  information. 

2.  The  implementor  may  claim  in  his  advertising  the  level  at 
which  his  compiler  is  rated.  The  user  may  simply  wish  to 
verify  this  claim. 

If  neither  of  these  ways  is  open,  the  user  can  resort  to  the 
"relaxation"  method.  That  is,  he  may  measure  the  compiler 
against  full  USA  Standard  COBOL,  then  successively  reduce  the 
requirements  until  he  achieves  a  clean  compilation.  This, 
obviously,  is  a  time  consuming  approach. 

Finally,  the  user  can  review  the  implementor’s  COBOL  manual 
and  determine  which  elements  in  the  modules  to  be  tested  are 
not  available  in  this  compiler.  These  elements  can  be 
identified  to  the  Selector  program  for  elimination. 

The  next  step  in  preparing  the  Test  Program  is  to  run  the  Selec¬ 
tor  program  to  generate  the  Source  Program  Maintenance  program 
and  the  specified  test  program(s)  for  the  implementation  being 
evaluated.  Thia  run  is  discussed  in  Section  3.2. 

Finally,  a  set  of  Operating  Syatem  control  cards  must  be  pre¬ 
pared  according  to  the  implementor’s  manual.  These  cards  will  be 
used  for  both  the  compilation  and  the  execution  of  the  program(s). 

2.4.3  Test  Program  Execution 

The  validation  process  is  diagrammed  in  Figure  2.  The  first 
step  is  the  compilation  of  the  source  deck  of  the  test  program(s) 
as  it  emerges  from  the  Selector  Program.  If  the  compilation  is 
free  of  serious  error  messages,  the  object  deck  of  the  test 
program  is  executed.  If  compile-time  errors  have  occurred,  the 
user  must  trace  each  measage  back  to  the  source  statement  that 
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Figure  2.  The  Validation  Process 
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caused  it  and,  using  the  Source  Program  dflaintenance  program, 
modify  the  source  deck  of  the  test  program  to  eliminate  the  errors. 
Output  from  the  Source  Program  Main tenance  program  should  be 
kept  to  document  the  changes.  The  test  program  is  compiled  (and 
modified  as  required)  until  all  serious  error  messages  are 
eliminated . 

The  final  step  of  the  validation  process  is  to  run  the  object 
version  of  the  test  program.  If  an  error  occurs  during  the 
run,  the  error  must  be  traced  to  the  source  program,  the  program 
must  be  modified  using  Source  Program  Maintenance,  then  compiled 
again . 

2.4.4  Test  Results  Evaluation 


The  result  of  a  validation  run  -  the  answer  to  the  question  of 
compiler  compliance  with  a  particular  set  of  Standard  modules  - 
must  be  determined  from: 

1.  The  list  of  language  elements  initially  eliminated  by  the 
Selector  program. 

2.  Any  messages  from  the  Selector  program  concerning  missing 
environmental  data. 

3.  The  modifications  made  to  the  source  deck  of  the  test 
program  as  indicated  in  the  output  of  Source  Program 
Maintenance . 

4.  The  actual  test  results  that  are  flagged  in  the  output  of  the 
test  program.  The  test  codes  that  identify  each  result  can 
be  used  to  locate  in  the  Test  Directory  the  test  that  pro- 
duced  the  questionable  result.  This  Directory  indicates 

the  module  to  which  the  test  applies  and  the  particular 
feature  being  examined. 
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SECTION  III 


USAGE  INSTRUCTIONS 

3.1  POPULATION  FILE  IT1AINTENANCE  PROGRAIY1  ( PFfYl ) 

The  PFIY1  program  maintains  the  CCVS  data  base  -  the  Population  File. 

Thi9  file  contains  two  dietinct  kinde  of  data:  Environmental  Data  and 
Te9t9.  Both  typee  are  composed  of  groups  of  related  COBOL  source  entries, 
with  the  groups  sequenced  by  an  identifying  code.  The  PFfYl  treats  each 
type  of  data  separately.  It  ha9  the  facility  to  add,  delete,  change  the 
content  of,  or  merely  print  groups  of  each  type.  Input  to  PFfYl  consists 
of  entry  information  arranged  in  the  earns  sequence  as  the  Population  File, 
and  the  Population  File  iteelf.  Output  ie  a  revised  Population  File, 
error  messages,  and  listings  of  the  groups  added,  deleted,  changed  or 
requested  for  printing. 

3.1.1  Preparation  of  Inputs 

3. 1.1.1  Environmental  Data 

Each  unique  configuration  for  which  a  test  program  ie  to  be  generated  is 
identified  to  the  CCVS  by  an  indicative  name  and  ie  represented  on  the 
Population  File  by  a  set  of  COBOL  source  entries.  These  source  entries  are 
constructed  by  the  PFfYl  from  user  supplied  input  and  can  be  referred  to  by 
any  test  in  euch  a  way  that  the  Selector  Program  will  replace  the  reference 
by  the  entry  referred  to.  In  this  way,  the  tests  and  the  system  utility 
programs  are  tailored  to  run  on  an  individual  configuration. 

Environmental  input  coneiet9  of  a  header  card  that  contains  the  indicative 
computer  name  and  an  indication  of  the  action  to  be  performed,  followed 
by  one  or  more  data  cards  (unless  a  ’’delete”  action  ie  specified). 


-18- 


3. 1.1. 1.1  Environment  Header :  The  format  of  the  Environment  Header  card 


is  shown  below. 


0  0 
1  3 

E  indicative-computer-name 


The  Environment  header  card  is  identified  by  the  fE*  in  column  1, 
followed  by  a  blank  in  column  2. 

Columns  3  through  12  contain  the  indicative-computer-name  by 
which  the  PFM,  the  Selector,  and  the  user  refer  to  the  entries. 

Because  environmental  data  groups  are  sequenced  by  indicative 
name  and  because  collating  sequence  differs  among  computers,  a 
consistent  format  for  this  name  must  be  adopted  by  each  user. 

Indicative  name  is  assigned  by  the  user  and  has  the  basic  fixed  format 

AAA NNNNNNN 

where : 

AAA  contains  the  alphabetic  abbreviation  for  the  configura¬ 
tion^  manufacturer.  No  spaces  are  permitted.  For 
example,  Control  Data  Corporation  could  be  abbreviated 
as  CDC,  General  Electric  as  GEC  and  Burroughs  as  BUR. 

Any  abbreviation  can  be  used  as  long  as  it  is  three 
letters  long  with  no  imbedded  blanks. 

NNNNNNN  is  all  numeric  and  contains  the  configuration’s  model 
number  and  any  other  information  such  as  system  number, 
compiler  level,  etc.  While  the  only  requirement  is  that 
this  field  be  numeric,  it  is  suggested  that  the  last  two 
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digits  be  used  to  guarantee  uniqueness  among  different 
configurations  of  the  same  series  computer. 


Column  13  contains  the  Action  Code.  Four  options  are  available: 

A  Add  a  new  set  of  entries  identified  by  the  indicative  name,  to 
the  Population  File.  When  this  option  is  used,  all  twelve 
environmental  data  card9  must  follow  the  header. 

0  Delete  the  9et  of  entries  identified  by  indicative  name.  When 
this  option  is  used,  no  environmental  data  cards  follow  the 
header . 


C  Change  the  set  of  entries  to  reflect  the  information  contained  in 
whichever  data  cards  follow.  The  header  is  followed  by  from  one 
to  twelve  environmental  data  cards.  Replacement  is  done  on  a 
card  by  card  basis.  Therefore,  all  entries  in  a  given  card  must 
be  filled  out  correctly,  even  though  only  one  entry  represent:, 
a  change.  For  example,  if  entry  31  on  card  9  is  to  be  changed, 
entries  26  through  30  and  32  through  34  must  be  filled  out  exact Ly 
as  they  were  for  the  initial  entry,  even  though  they  themselves 
are  not  being  changed.  (see  Figure  3,  Appendix  C  for  card  format). 

P  Print  the  entire  set  of  environmental  entries  for  indicative  name. 
Because  an  A,  D  or  C  option  will  cause  automatic  printing  of  the 
entire  set  of  entries,  the  indicative  name  appearing  with  a  P  option 
mu9t  not  appear  anywhere  else  in  the  environment  input  stream  foi 
a  given  PFIYI  run. 
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3. 1.1. 1.2  Environmental  Data  Cards.  There  are  twelve  environmental  data 


cards  that  can  follow  the  environment  header  when  the  operation 
specified  is  "add"  or  "change".  These  cards  are  filled  out 
according  to  a  set  of  queetions  using  information  from  the  imple¬ 
mentor’s  COBOL  manual. 

Appendix  C  contains  the  questionnaire,  a  blank  environmental 
data  sheet  showing  the  card  formats,  and  a  sample  environmental 
data  sheet  for  a  fully  implemented  USASI  compiler  together  with 
the  corresponding  output  of  a  PFM  run. 

3 , 1 , 1  *  2  Tests 

Each  Test  begins  with  a  test  header  that  contains  the  Test's 
serial  number,  the  program  number  in  which  the  test  appears,  the 
module  membership  indicators,  and  one  or  more  drop  codee  that,  when 
specified  to  the  Selector  program^  cause  the  Test  to  be  deleted  from 
a  particular  test  program.  The  header  is  followed  by  the  source 
cards  that  comprise  the  Test.  Each  card  of  a  Teet  is  coded  with 
a  unique  eequence  number  that  ie  use*d  by  the  Selector  program  to 
place  the  card  in  the  correct  sequence  for  compilation. 

3.1. 1.2.1  Test  Header .  The  format  of  the  test  header  is  shown  below. 


13 _ 

( T  test-serial-number 


9 


program-number 


11  55 


modules  drop-codes 


Columne  1  and  2  of  the  Teet  Header  contain  T  followed  by  a  space. 
Columns  3-7  contain  the  test  serial  number.  Tests  are  carried 
on  the  Population  file  in  test  serial  number  sequence.  This 
serial  number  uniquely  identifies  each  teet  to  the  PFIY1,  Selector 
and  the  user,  and  has  the  format: 


n 


t 


Nmmm 
XXmm  ; 
YYmm  J 
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where  n  is  the  level  (1,  2  or  3)  within  the  module;  N  identifies 
the  Nucleus  and  mmm  the  sequence  of  the  test  within  the  Nucleus; 

XX  idsntifies  one  of  the  functional  modules  and  mm  is  the  sequence 
number  of  ths  test  within  that  module;  or  YY  identifies  a  non-test 
resident  (e,g.,  a  system  utility  program)  and  mm  is  the  phase  number 
or  01  if  the  rssident  has  only  one  phase. 

The  functional  moduls  identifiers  are: 


TH  Table  Handling 

SQ  Sequential  Access 

RA  Random  Accsss 

ST  Sort 

RU1  Report  Writer 

SG  Segmentation 

LB  Library 


The  current  non-test  resident  identifiers  are: 

PF  Population  File  Maintenance 

SL  Sslsctor 

SP  Source  Program  Maintenance 

SU  Support  Routine 


Column  8  contains  the  following  action  identifiers: 


A  Add  the  test  header  and  the  series  of  cards  between  it  and  the 
next  header  to  the  Population  File. 


D  Delete  the  test  whose  serial  number  begins  in  Column  3  of  this 
card.  When  thie  option  is  used,  no  source  test  cards  follow 
the  header. 


C  Change  the  test  identified  in  columns  3  -  7  to  reflect  the  data 
in  the  cards  that  follow.  Thie  header  replaces  the  existing 
header.  If  eource  cards  follow  the  header,  they  are  merged 
into  the  existing  test  in  order  by  sequence  number  (a  new 
card  replaces  an  old  card  with  the  3ame  sequence  number)* 

P  Print  the  test.  Since  options  A,  D  and  C  cause  the  test  to  be 
printed,  this  option  ie  used  to  print  tests  not  otherwise  men¬ 
tioned  in  the  input  stream  for  this  PFM  run. 
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Columns  9-10  contain  the  program  number  in  which  the  test 


appears.  Program  numbers  have  been  assigned  as  follows: 


01  Support  Routine  (never  appears  alone) 

02  PFM 

03  SPIY1 

04  Selector  I 

05  Selector  II 

06  Selector  III 

07-09  Reserved  for  system  programs 

10  NUC  (except  1IM304,  1N305,  1N314,  1N315,  2N050,  2N051  and  2 NO 
TBL 

SEQ  (except  RERUN,  1SQ27-31,  and  2SQ15) 

RAC  (except  2RA18) 

2SRT 

1RPUJ  (except  1RUI01) 

11  1SEQ  (RERUN,  1SQ27-31) 

2RPUJ 

12  1 SEG 

13  2SG01 

14  2SG02 

15-10  LIB  (except  1LB04,  1LB06) 

19  1 NUC  (CURRENCY  SIGN,  1N314;  DECIMAL  POINT,  1N315) 

20  1N304,  1N305,  2N050,  2N051 ,  and  2N052 

21  2RA18 

22  2SQ15 
23-29  Unassigned 

30-44  1SRT  (1  test  per  program) 

45  1LB04 

46  1LB06 

47  1RUJ01 
40-49  Unassigned 

50  Library  Entries  for  1LIB,  2LIB 

99  9ZZ99  (header  only  —  for  artificial  end-of-file) 


Columns  11  through  54  contain  from  1  to  9  designations  of  the 
module  and  level  to  which  the  test  applies.  All  tests  in  the  low 
level  of  a  module  designate  both  the  low  and  high  levels.  The 
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designation  is  coded  in  standard  form  separated  by  commas  with 
no  intervening  spaces  (e.g.,  1 TBL , 2TQL , 3TBL ) . 

Columns  55  -  00  contain  up  to  9  two-digit  Mdrop  codcsM.  These 

codes  refer  to  COBOL  language  features  that  are  commonly  not 

implemented  in  currently  available  compilers.  The  present  list 

of  codes  is  found  in  Appendix  A.  This  list  can  be  expanded  by 

the  user  by  merely  adding  features  and  corresponding  unique  codes  to 

the  list.  During  a  Selector  run,  when  a  drop  code  appears  in  a  test  hnade 

and  a  Selector  program  DROP  card,  the  test  is  dropped.  The  codes 

are  separated  by  commas  with  no  intervening  spaces  (o.g.,  1D,2L,0C). 

3.1.2  RESULTS  OF  OPERATION 


The  Population  File  that  is  produced  by  this  run  is  unlabeled  and 
consists  of  unblocked  80-character  card  images.  The  sequence  of 
information  on  the  file  is  as  follows: 

1.  Environmental  Entries,  in  sequence  by  the  indicative-computer- 
name  in  columns  3  through  12  of  the  Header  card  of  each  set. 

An  environmental  set  consists  of : 

a.  The  header 

b.  Fifty-two  environmental  data  cards,  in  sequence  by  columns 
1  through  6. 

2.  Tests  and  other  residents,  in  sequence  by  the  test  serial 
number  in  columns  3  through  7  of  the  Header  card  of  each  test. 

A  test  consists  of : 

a.  The  header 

b.  Any  number  of  source  cards  in  sequence  by  columns  1  through  6. 
The  Population  File  contains  the  following  items: 

1.  Environment  sets: 

BUR035G001 
CDC0640001 
GEC0062501 
I B1Y100360  0 1 
UNV01 10801 
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2/  Tests  and  other  residents: 


0LB00 

0SL01 

through 

0SL03 

0SU01 • 

1LB01 

through 

1LB10 

1N001 

through 

1N31B 

1RA01 

through 

1RA0B 

1RUJ01 

through 

1RUJ03 

1SG01 

through 

1SG14 

1SQ01 

through 

1SQ31 

1STD1 

through 

1ST15 

1TH01 

through 

1TH04 

2LB01 

through 

2LB10 

2N001 

through 

2N061 

2RA01 

through 

2RA18 

2RUJ01 

through 

2RUJ05 

2SG01 

through 

2SG02 

2SQ05 

through 

2SQ15 

2ST01 

through 

2ST06 

2TH01 

through 

2TH04 

3TH01 

through 

3TH06 

9PF01 

9SP01 

9ZZ99 

Test  97.7.99  consists  of  a  header  only  and  is  used  by  the 

Selector  program  as  a  machine-independent  end-of-file  indicator. 

The  result  of  a  PPM  run  depends  on  the  action  specified: 

1.  Add  Action.  The  add  action  in  the  case  of  the  Environmental 
data  creates  a  header  and  52  card  images.  The  add  action  for 
a  Test  places  tho  card  images  complete  with  header  on  the 
population  file  exactly  as  they  are  recoived  from  the  input 
device.  The  now  entries  are  printed  out. 
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2.  Delete  Action.  The  delete  action  in  either  the  case  of  the 
environmental  data  or  the  tests  deletes  all  card  images 

on  the  population  file  until  the  next  header  is  found.  In 
both  casos  the  deleted  information  will  be  printed  out. 

3.  Print  Action.  The  print  action  simply  prints  and  copies 
the  card  images  up  until  the  next  header. 

4#  Change  Action.  The  change  action  in  the  cqse  of  the 
Environmental  data  changes  only  that  information  on  a 
particular  input  card.  The  sample  below  will  illustrate 
this : 

The  input  cards: 


E  XYZ0879501C 

06  READ-UNIT 

will  change  ET0230  and  ET0240  under  the  header  E  XYZ0879501C 
from  (See  Appendix  C  for  an  explanation  of  Environmental  cards)  I 
E 1 0230  DISK2 

ET0240  READER 

to 

ET0230 

ET0240  READ-UNIT 

Note  that  the  blank  field  on  the  input  card  was  transmitted 
to  ET0230  which  means  that  all  information  generated  by 
an  environmental  data  card  must  be  present  if  it  is  not  to 
bn  blanked  out. 

The  change  action  for  a  test  operates  on  the  basis  of  the 
serial  numbers  in  columns  1  through  6  on  the  test  card 
images.  Equal  serials  cause  replacement  by  input,  unequal 
serials  cause  collation  in  sequence.  The  following  example 
will  clarify: 
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The  input 

cards: 

T  2  STOIC 102SRT 

4G  ,4U 

B54400 

ADD  1 

854405 

TO  SUP-NUITMUK. 

will  change 

054400 

ADD  1  TO  SUP-NUm-UIK. 

054410 

IYI0VE  TO  SUP-CTL 

(SIIP-NUm-WK). 

to 

054400 

ADD  1 

054405 

TO  SUP-NUIYI-UJK  . 

054410 

MOVE  TO  SUP-CTL 

(SUP-NUm-UIK). 

• 

and  the  old  header 

T  2ST01 A102SRT 

4G  ,4 

will  change  to 

T  2ST01C102SRT  4G  ,4U 

In  both  the  test  and  the  environment  case  the  entire  set  of 
card  images  between  headers  of  the  changed  file  will  print  out. 

Appendix  E  contains  the  liet  of  diagnostic  messages  produced 
by  PFM. 
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3.2  SELECTOR  PROGRAM 


The  Selector  generates  test  programs  from  Population  File 
entries,  based  on  user  supplied  control  information. 

The  Selector  is  capable  of  supplying  any  resident  on  the  Population 
File  with  environmental  data.  The  only  provisions  are  that:  l)  t ne 
resident  must  be  entered  through  a  PFIY1  run  in  the  manner  specified 
for  tests,  and  2)  the  resident  must  be  named  on  the  TEST  card. 

The  PFM,  SPIY1,  the  Selector  itself  and  ’COPY1  Library  entries  (for 
tests  of  LIB)  are  currently  supplied  with  environmental  data  in 
this  fashion. 

The  inputs  to  the  Selector  are  the  Population  File  and  a  set  of 
control  statements  that  define  the  test  programs  that  are 
to  be  generated. 

Principle  considerations  in  the  preparation  of  these  control 
cards  are  the  machine-compiler  configuration  subject  to  test, 
the  modules  of  USA  Standard  COBOL  against  which  the  compiler  is 
to  be  measured,  which  (if  any)  standard  features  are  known  not 
to  be  implemented,  and  the  operating  system’s  requirements  for 
the  subject  machine  and  the  compiler  environment.  Each  consi¬ 
deration  is  expressed  in  a  separate  control  card. 

The  Selector  produces  one  or  more  test  programs  plus  a  set  of 
diagnostic  and  informative  messages. 
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3.2.1  Preparation  of  Inputs 


The  Selector  accepts  five  control  cards,  the  first  two  of  which 
are  required.  They  are  as  follows: 

HDWR  -  Hardware  description:  This  card  is  required  and 
indicates  the  indicative-name  assigned  to  the  environmental 
data  to  be  used  by  the  Selector  in  tailoring  the  test  programs. 
The  format  of  the  HDUiR  card  is: 


1 

HDUJR 


6 

indicative -name 


,  ALL 


Indicative-name  must  be  identical  to  the  name  that  appears 
on  the  header  card  of  an  environmental  data  set  (see  3.1.1.1.1). 
This  environmental  data  will  be  used  to  tailor  whatever 
Population  File  residents  are  named  on  the  TEST  card. 


The  optional  parameter  ALL  specifies  that  all  test  results  are 
to  be  printed  by  the  test  programs  when  they  are  executed. 

The  omission  of  this  parameter  causes  only  those  results  that 
differ  from  the  expected  results  to  be  printed. 


TEST  -  test  specification  card:  This  card  is  required 
and  indicates:  l)  the  content  of  the  test  program  in 
terms  of  Standard  modules,  and  2)  which  CCUS  utility  programs 
(or  data)  are  to  be  selected  from  the  Population  File  and 
tailored.  More  than  one  TEST  card  can  be  used  if  a  single 
card  is  overflowed.  The  format  of  the  TEST  card  is: 

6 

TEST  nXXX  ,nXXX  ... 
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The  indicator  nXXX  may  be: 


1.  The  name  of  a  USA  Standard  COBOL  module  (e.g.,  1NUC, 

2RPUJ).  Appendix  D  discusses  the  tests  that  comprise  each 
module . 


2.  The 

special  indicators : 

a. 

IfflIN  which  stands  for  the  'minimum  standard  requirement  - 

1NUC,  1TBL,  1SEQ.  UJhen  INI  IN  is  specified,  modules  other 

than  the  three  for  which  it  stands  may  also  be  specified. 

b . 

IfflAX  which  stands  for  the  maximum  standard  requirement  - 

2NUC,  3TBL ,  2SEQ,  2RAC ,  2SRT,  2RPU J,  2SEG ,  2LIB.  UJhen  IfflAX 

appears,  no  other  modules  may  be  specified. 

3 .  The 

resident  designators : * 

0SL1  Selector,  phase  1 

0SL2  Selector,  phase  2 

0SL3  Selector,  phase  3 

OLIB  "COPY"  Library  entries  for  both  1LIB  and  2LIB 

IPFfll  Population  File  Maintenance  program 

1SPM  Source  Program  Maintenance  program 

*0  equals  zero 
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In  the  table  below,  an  X  indicatee  which  combinations  may 
appear  together  on  a  TEST  card: 


imiN 

ItflAX 

nNUC 

nTBL 

nSEQ 

other 

modules 

residents 
(not  tests) 

imiN 

X 

X 

1IK1AX 

X 

nNUC 

X 

X 

X 

X 

nTBL 

X 

X 

X 

X 

nSEQ 

X 

X 

X 

X 

other 

modules 

X 

X 

X 

X 

X 

X 

residents 

X 

X 

X 

X 

X 

X 

X 

If  the  computer  on  which  the  test  program  is  to  run  has  a  small 
main  storage  capacity,  it  is  advisable  to  limit  the  number  of 
modules  that  appear  on  a  TEST  card.  Multiple  Selector  runs 
(not  multiple  TEST  cards  in  a  eingls  run)  will  then  be  necessary 
to  generate  all  the  teet  programs  needed  to  satiefy  the  particular 
validation  requirements.  If  a  further  reduction  in  teet  program 
size  ie  required,  the  DROP  card  can  be  used  to  epecify  by  serial 
number  certain  tsets  to  be  eliminated  during  selection. 

DROP  -  Drop  indicatore:  The  Drop  Card  is  optional  and  epecifies  one 
or  more  items  to  be  eliminated  during  the  selection  process. 

Thie  enables  the  ueer  to  eliminate  features  that  he  knowe  are 
nof  implemented  in  the  compiler  being  validated  before  the  test 
program  ie  selected.  For  example*  in  validating  most  currently 
available  COBOL  compilere  for  1TBL,  the  Indexing  feature  would  be 
DROPed.  More  than  one  DROP  card  can  appear  in  the  input  stream. 
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6 


DROP  identifier  , identifier  ... 

Identifier  may  be  either: 

1.  A  two  digit  "drop  code".  The  relationship  of  Drop  codes  to 
standard  COBOL  features  is  shown  in  Appendix  A.  A  single 
drop  code  may  cause  one  or  a  number  of  tests  to  be  dropped 
from  one  or  more  of  the  modules  specified  on  the  TEST  card. 

Up  to  75  codes  may  be  specified  for  a  Selector  run. 

2.  A  five  character  test  serial  number.  Each  test  has  been 
assigned  a  unique  serial  number  (see  3. 1.1. 2.1)  that  associates 
th6  various  statements  comprising  the  test.  This  serial 
number  is  found  in  the  Test  Directory  (see  Appendix  D)  and 
when  used  in  the  DROP  card,  causes  all  the  statements  related 
to  the  particular  test  to  be  dropped.  Up  to  50  serial  numbers 
can  be  specified  for  a  Selector  run. 

It  should  be  noted  that  if  a  particular  test  contains  both  imple¬ 
mented  and  non-implemented  statements,  the  5 P1Y1  program  should 
be  used  to  modify  it  rather  than  using  a  drop  code  to  eliminate  it, 

unless  the  entire  test  is  rendered  meaningless  by  the  absence  of  the 

non-implemented  statements. 

HEAD  and  TAIL  Cards:  These  optional  cards  enable  the  user  to 
place  Operating  System  Control  cards  before  (HEAD)  and  after 
(TAIL)  the  source  deck  of  each  test  program.  This  feature  may 

enable  a  smoother  run  sequence  to  be  obtained  under  certain 

Operating  Systems.  The  format  of  these  cards  is: 


6 


HEAD  l  nn 
TAILJ 


tuhars  n  ia  ths  numbsr  of  control  cards.  This  numbsr  of  cards 
must  follow  ths  HEAD  or  TAIL  card  in  qusstion.  For  axampls: 
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Only  one  HEAD  and  one  TAIL  card  may  appear  in  the  input  stream; 
each  may  contain  a  different  number,  but  the  sum  of  the  two 
numbers  must  not  exceed  50. 

The  control  cards  muet  be  recognizable  ae  such  to  the  Selec¬ 
tor  program;  that  is,  they  must  not  contain  end-of-file  indi¬ 
cations,  nor  can  they  contain  all  numeric  data  in  columns  1-6. 

As  shown  in  the  example  above,  when  the  composite  of  modules 
selected  on  the  TEST  card  resulte  in  the  generation  of  more  than 
one  test  program  (eee  3. 1.1. 2.1),  the  control  cards  are  repeated 
and  placed  before  and  after  each  individual  source  program. 

3.2.2  Results  of  Operation 


The  Selector  generates  one  or  more  test  programs  depending  on 
the  parameters  of  the  particular  TEST  card.  The  assignment  of 
modules  to  programs  is  described  in  3. 1.1. 2.1.  The  selected  pro¬ 
grams  appear  in  program  number  order  on  the  output  file. 

In  addition,  the  Selector  produces  an  information  and  diagnostic 
listing.  This  list  contains  two  kinds  of  information  in  the 
same  format: 

1.  A  list  of  the  serial  numbers  of  all  tests  dropped  together 
with  the  cause  of  their  removal  and  the  modules  in  which  the 
tests  normally  appear. 
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2.  A  list  of  non-standard  situations  reflected  in  the  environ¬ 
mental  data  for  the  particular  implementation.  For  example, 
the  lack  of  a  RESERVE  clause  mould  be  reported  at  this  point. 

This  listing  contains  three  columns:  (1)  Test  serial  number, 

(2)  meesage,  mhich  contains  a  short  message  or  a  drop  code,  and 

(3)  the  module  and  level  to  mhich  the  test  belongs,  taken  from 
the  test  header  card  (see  3. 1.1. 2.1).  For  example: 


SERIAL 

MESSAGE 

MODULE 

1N004 

4N 

1NUC,2NUC 

1N316 

4B 

1NUC,2NUC 

4T 

1TH02 

1M 

1TBL,2TBL,3TBL 

2SQ11 

ENV  ERR  FATAL 

2SEQ 

2TH02 

1M 

2TBL,3TBL 

3TH01 

NAMED  ON  DROP 

3TBL 

The  first  three  tests  mere  eliminated  because  their  test 
headers  contained  a  drop  code  identical  to  one  contained  on 
the  DROP  card.  Notice  that  the  second  test,  1N316,  mas  dropped 
by  tmo  drop  codes.  The  fourth  test  mas  dropped  because  the  en¬ 
vironmental  data  it  requested  mae  missing,  and  the  card  in  the 
test  that  requested  this  data  indicated  that  the  entire  test 
must  be  dropped  in  this  event  (eee  Appendix  F  for  further 
details).  The  fifth  test  mas  dropped  by  the  same  drop  code, 

1RI,  that  dropped  the  third  test.  The  last  test  mae  dropped  because 
its  serial  number  appeared  on  the  DROP  card. 

The  lack  of  environmental  data  requested  by  a  particular  test 
results  in  one  of  2  additional  messages: 

ENVIRONMENT  HAS  NO  ENTRY... CARD  DROPPED 
ENVIRONMENTAL  ERROR  CAUSES  FOLLOWING  TEST  TO  DROP... 

These  messages  are  interspersed  mith  those  described  above. 
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3.3  SOURCE  PROGRAIKI  MAINTENANCE  PROGRAM  (SPM) 


The  primary  purpose  of  SPM  ie  to  permit  eource  level  modifications 
to  te9t  program  contents,  Modif ications  may  be  required  if 
language  elemente  are  not  implemented  in  the  compiler  under¬ 
going  tests,  or  if  that  compiler  obeerves  conventions  different 
from  or  in  addition  to  those  observed  in  USA  Standard  COBOL.' 

Many  of  the9e  differences  can  be  handled  more  easily  through 
the  Drop  Code  facility  or  by  entries  on  the  Environmental  Data 
portion  of  the  Population  File.  Character  punch  code  differences 
are  handled  by  the  Character  Code  Convereion  Program  described 
in  3.4. 

Any  differences  that  cannot  be  handled  by  those  means,  but  which 
will  have  an  effect  on  the  execution  of  the  teste,  must  be 
handled  by  means  of  an  SPM  run.  For  example,  a  compiler  might 
require  certain  non-etandard  information  in  FD  entries.  The?  e 
entries  cannot  be  provided  through  the  environmental  data  faci¬ 
lity  and,  thue,  muet  be  added  by  means  of  SPM. 

Since  the  complete  universe  of  changes  which  may  become  nece99ary 
cannot  be  predicted,  no  eet  working  procedure  can  be  eetablished. 
Some  factors  to  consider  during  test  preparation  for  a  epecific 
compiler  include  these: 

1.  Does  the  implementor  note  any  non-9tandard  features,  or 
extensions  to  USA  Standard  COBOL  that  are  neceesary  for 
the  correct  operation  of  standard  features? 

2.  Does  the  manufacturer  note  any  restrictions,  un-implemented 
or  partially-implemented  features? 
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3.  Is  the  implementation  on  a  par  ujith  the  level  of  each 
module  to  be  validated  in  the  tests? 

4.  Are  there  known  problem  areas  or  "bugs"  in  the  current  version 
of  the  compiler? 

5.  Does  the  compilation  of  the  tast  program  produce  error 
messages,  or  is  the  execution  incorrect? 

6.  Do  system  considerations  have  an  effect  on  the  test  design 
(e.g.,  file  passing  techniques)? 

If  the  answers  to  any  of  these  questions  indicats  that  changes 

to  the  test  programs  are  required,  the  following  points  must  be 

considered  in  making  these  changes. 

1.  How  many  tests  are  affected  by  the  change? 

2.  Does  the  change  invalidate  the  purpoee  of  any  individual  test? 

3.  Can  the  change  be  made  more  easily  by  use  of  either  the 
environment  table  (see  PFifl,  3.1)  or  Selector  control  cards 
(Selector,  3.2)? 

4.  Does  the  change  require  reprogramming  or  redesign  of  any  test? 

3.3.1  Preparation  of  Inputs 

Input  to  an  SPIN  run  consiets  of  the  file  of  test  programs  produced 
by  the  Selector,  and  a  set  of  change  cards.  Change  cards  must  be 
in  sequence  by  program  number  (columns  73-74),  then  sequence  number 
(columns  1-6). 
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SPIYI  considers  any  card  that  i9  not  in  sequence  by  program  number/ 
sequence  number  to  be  a  system  control  card.  Because  system 
control  cards  do  not  usually  contain  fields  for  sequence  number 
or  program  number,  changes  to  these  cards  cannot  be  made  by 
S PIY1  •  Rather,  the  source  program  must  be  punched  out  and  such 
changes  made  manually.  The  system  end-of-file  (whatever  is 
recognized  a9  an  AT  END  condition  by  the  COBOL  READ  statement) 
cannot  appear  in  the  source  or  maintenance  inputs  except  to  desig¬ 
nate  the  end  of  such  inputs. 

All  modifications  are  made  on  a  card-by-card  basis.  To  make 
changes  to  individual  words  within  a  statement  -  for  instance, 
to  delete  an  optional  word  from  the  middle  of  a  statement  -  the 
entire  card  on  which  that  statement  appears  must  be  replaced 
by  one  containing  the  desired  wording.  The  individual  tests 
have  been  designed  in  such  a  way  as  to  facilitate  card-by-card 
modification . 

The  SPIYI  input  card  formats  and  corresponding  functions  are  as 
follows : 

OPTION :  This  card  controls  the  content  of  the  SPIYI  output 

listing.  An  OPTION  card  applies  to  all  programs  following 
it  until  overridden  by  another  OPTION  card. 


rl  7  13  14  73  74 

OPTION  L  program-number 

1-6:  must  be  blank. 

7-12:  OPTION. 

13:  L  or  blank.  L  causes  the  listing  of  the  output  source 

program  with  the  changes  annotated  (this  option  is 
assumed  if  no  OPTION  card  is  found  by  SPIYI).  Blank 
causes  the  listing  of  correction  cards  only. 

14:  must  be  blank. 

73-74:  program  number  or  blank. 
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DELETE ;  Single  source  entries  or  a  series  of  source  entries 
may  be  deleted  by  means  of  this  card. 


73  74 


program-number 


where  sequence-no-1  identifies  the  first  or  only  source  pro¬ 
gram  card  to  be  deleted  and  sequence-no-2  identifies  the  last 
card  to  be  deleted.  UJhen  only  one  card  is  to  be  deleted, 
sequence-no-2  must  be  equal  to  sequence-no-1.  Columns  73-74 
must  contain  the  program  numbers. 

No  DELETE  card  may  indicate  a  range  which  overlaps  the  range 
of  another  DELETE  card. 

Insertions ;  These  require  no  control  card.  The  cards  to 
be  inserted  must  be  assigned  serial  numbers  in  columns  1-6 
which  fall  between  a  pair  of  existing  serial  numbers. 

When  a  group  of  cards  is  to  be  inserted  at  a  single  point, 
only  the  first  card  need  be  punched  with  a  serial  number; 
the  remaining  cards  may  be  blank  in  columns  1-6.  However, 
all  must  contain  the  program  number  in  columns  73-74. 

Insertions  may  be  made  within  the  range  of  a  DELETE. 

Replacements :  Replacements  are  similar  to  insertions  except 

that  the  serial  number  field  of  the  replacing  card  equals 
the  serial  number  on  the  source  program  card  to  be  replaced. 

When  a  series  of  cards  contains  more  cards  than  are  being 
replaced,  the  extra  cards  may  either  be  assigned  serial 
numbers  between  the  last  replaced  one  and  the  following  one; 
or,  as  with  inserts,  contain  a  blank  sequsnce  field. 
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UJhen  a  series  of  replacement  cards  contains  less  cards  than 
are  being  replaced,  the  excess  must  be  deleted  by  a  DELETE  con¬ 
trol  card.  In  this  case,  it  may  be  more  convenient  to  DELETE 
the  entire  group  to  be  replaced,  following  it  by  an  insertion. 
Note  that  blank  serial  numbered  cards  following  from  a  DELETE 
card  are  permitted, 

END: 


c  ; 

I  END 

1-6:  blank 

7-9:  END 

10-72:  blank 

73-74:  program-number  or  blank 


73  74 

program-number 


S PfTl  input  cards  are  arranged  in  the  follouiing  order: 

1.  OPTION  card  (optional). 

2.  Program  groups;  arranged  in  sequence  by  program  number 
(columns  73-74). 

a.  OPTION  card  (optional). 

b.  Deletions,  insertions  and  replacements  in  order  by 
sequence  number  (columns  1-6).  Card  uiith  blank  sequences 
numbers  are  treated  as  if  they  tuere  consecutively 
numbered  from  the  first  card  of  their  group. 

3.  END  card. 

.3.2.  Results  of  Operation 

An  SPdfl  run  results  in:  (l)  an  updated  source  tape  of  test 
programs,  (2)  a  listing  for  each  program  modified  by  the  run, 
as  specified  by  the  option  card  in  force  u;hen  the  program  was 
processed. 
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3.4  CHARACTER  CODE  CONVERSION  PROGRAM 


Because  of  the  differing  representation  of  character  codes  in 
different  computers,  a  character  code  conversion  program  has 
been  furnished.  Thie  program,  unlike  the  other  CCVS  utility 
programs,  ie  not  written  in  COBOL.  Rather,  it  ie  a  Syetem/360 
BAL  program  that  operates  as  a  free-standing  program. 

The  program  accepts  any  COBOL  source  program  or  the  Population 
File  as  input,  together  with  two  control  cards  specifying  the 
source  and  target  character  codes.  Output  of  the  program  ie  the 
converted  program  or  Population  File. 

3.4.1  Preparation  of  Input 

Control  carde  required  by  the  program  are: 

1.  SOURCE  card: 

a.  Columns  1  -  6  =  SOURCE. 

b.  Columns  7  -  9  =  the  addreee  of  the  input  device; 

i.s.,  180,  00C,  etc. 

c.  Columns  10  -  11  =  If  2540  is  ueed,  01  =  Data  Mods  1, 

02  =  Data  Mods  2.  If  tape  ie  ueed,  the  mode  setting 
ehown  in  the  chart  below  should  bs  used. 

d.  Columns  12  -  80  =  Characters  to  be  translated. 

2.  OBJECT  cards 

a.  Columns  1  -  6  =  OBJECT. 

b.  Columns  7  -  9  =  the  addreee  of  the  output  device; 

i.e.,  180,  00D,  etc. 

c.  Columns  10  -  11  =  If  2540  is  used,  01  =  Data  Mode  1, 

02  =  Data  Mode  2.  If  tape  ie  ueed,  the  mode  setting 
ehown  in  the  chart  below  should  be  ueed.  For  all  other 
eituatione,  leave  these  columne  blank. 
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d.  Columns  12-80  =  Characters  to  which  SOURCE  character  are 
to  be  translated.  Each  0B3ECT  character  should  appear  in 
the  same  column  as  that  SOURCE  character  from  which  the 
translation  is  to  be  made. 


Col 

10-11 

Bytes 
per  Inch 

Parity 

Translate 

F eature 

Convert 

Feature 

10 

200 

odd 

off 

on 

20 

200 

even 

off 

off 

28 

200 

even 

on 

off 

30 

200 

odd 

off 

off 

38 

200 

odd 

on 

off 

50 

556 

odd 

off 

on 

60 

556 

even 

off 

off 

68 

556 

even 

on 

off 

70 

556 

odd 

off 

off 

78 

556 

odd 

on 

off 

90 

800 

odd 

off 

on 

A0 

800 

even 

off 

off 

A8 

800 

even 

on 

off 

80 

800 

odd 

off 

off 

88 

800 

odd 

on 

off 

CO 

800 

1600 

single-density  9-track  tapes  only 
dual-density  9-track  tapes  only 

C8 

800 

dual-density  9-track  tapes  only 

A  set  of  sample  control  cards  is  found  in  Appendix  H. 

The  following  rules  must  be  observed  when  determining  device 

assignments . 

1.  If  either  the  input  or  output  device  is  a  card  reader  that 
will  be  reading  or  punching  other  than  EBCDIC  punches,  that 
device  must  be  a  2540  with  the  data  mode  2  option. 

2.  When  either  input  or  output  is  assigned  to  tape,  only 
EBCDIC  punches  may  be  ueed  in  either  control  card. 

3.  Remember  that,  on  tape,  the  objective  is  a  particular  bit 
configuration;  the  punches  in  the  control  cards  should  be 
selected  with  this  in  mind. 
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3.5  TEST  PROGRAM  OUTPUT  ANALYSIS 


The  ALL  parameter  of  the  HD1DR  card  conditions  a  test  program 
to  display  the  actual  and  pre-determined  result  of  every  test 
in  a  test  program.  If  an  actual  and  a  pre-determined  result 
differ  (as  determined  by  a  character-by-character  comparison) 
the  actual  result  is  underlined.  The  absence  of  the  ALL 
parameter  results  in  the  display  of  the  actual  and  pre-determined 
results  of  only  those  tests  where  a  difference  is  found. 

Test  results  are  displayed  across  the  output  page.  Four  lines 
appear : 

1.  The  top  line  contains  the  test  serial  number  (e.g.,  1N026, 
1TH02). 

2.  The  second  line  contains  the  pre-determined  result. 

3.  The  third  line  contains  the  actual  result. 

4.  The  fourth  line  contains  dashee  that  underline  those  cases 
wherein  the  pre-determined  and  actual  results  do  not 
agree. 

If  a  failure  is  noted  in  the  output,  it  is  necessary  to  trace  the 
error  to  its  cause  in  order  to  determine  whether  or  not  the 
failure  represents  a  violation  of  the  USA  Standard  COBOL*  The 
procedure  to  follow  in  gathering  information  about  a  particular 
test  ie  as  follows: 

1.  Note  the  teet  serial  number  which  appeare  in  the  first  line 
of  the  test  result  printout. 

2.  Look  up  that  test  in  the  test  directory  found  in  Appendix  D. 
This  will  indicate  what  the  purpose  of  the  test  is  and  how  the 
test  results  are  related  to  that  purpose. 
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3*  If  more  detailed  information  is  desired,  look  up  the  test 
in  the  test  descriptions  found  in  Part  II  of  the  Detailed 
Program  Specification  (Reference  4). 

4.  Look  up  the  test  on  the  listing  produced  by  the  PFIY1.  This 
ie  the  ultimate  source  of  information  on  the  procedures  and 
design  of  the  teet* 

Once  the  source  of  the  difference  ie  isolated,  it  must  be  con¬ 
sidered  in  light  of  the  purpose  of  the  test.  Ae  an  example, 
suppoee  a  sort  test  indicatee  a  eingle  error,  as  follows: 

1  S  T  0  9  * 

111111111* 
111011111* 

The  preeence  of  dashes  in  the  last  row  indicates  an  error  some¬ 
where  in  the  resulte*  Comparing  the  middle  two  rowe  shows  the 
error  to  be  in  the  fourth  poeition*  The  first  row  identifies 
the  teet  as  15T09* 

Looking  at  the  test  directory  under  15T09,  we  see  that  each 
position  represents  the  most  recently  changed  sort  key  field 
on  coneecutiv/e  sorted  recorde  and  that  the  fourth  record  in 
the  aecending  sequence  expected  hae,  as  its  most  recently 
changed  field,  the  eighth  key  with  a  generated  value  of  -14. 

Going  to  the  test  listing  for  1ST09,  we  note  that  the  eighth 
key  is  computational,  unsigned.  Thus,  the  expected  result 
that  was  checked  for  was  +14. 

This  indicates  that  an  uneigned  computational  item  which 
originally  had  been  aeeigned  to  a  value  of  -14  had  failed 
when  used  ae  a  eort  key. 
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The  error  must  now  be  correlated  to  a  feature.  Check  over  other 
results  to  see  if  any  other  failures  are  related  to  this  one.  If 
so,  try  to  determine  the  trouble  by  isolating  the  moet  common 
cause.  Check  all  diagnostics  produced  at  compilation  and  at  exe¬ 
cution,  and  the  manufacturer's  literature  for  restrictions,  special 
implementatione  or  known  problems. 

If  the  error  can  be  correlated  to  a  feature  other  than  those 
being  tested  in  the  failing  test,  the  test  should  be  modified  to 
eliminate  it: 

1.  Determine  the  change  required  in  order  to  bypase  the  problem 
without  invalidating  the  purpose  of  the  test, 

2.  Prepare  the  change  using  SP1Y1  change  techniques.  The  program 
number  in  which  the  test  appears  can  be  found  in  the  test 
header  on  the  PFIY1  list.  The  sequence  numbers  found  there  for 
the  test  source  cards  are  the  same  as  those  found  on  the  test 
program  listing. 

3.  Using  the  SP1Y1  make  the  changes  to  the  test  program  (not  to 
the  tests  themeelves)  and  re-execute.  In  the  case  of  data 
items,  the  item  to  be  changed  may  appear  under  a  different 
test  serial  number  because  of  the  elimination  feature  of  the 
Selector  Program  (see  2.3.3  and  reference  4). 

Ae  a  continuation  of  the  earlier  example,  all  test  results  are 
checked  for  failure  related  to  sort  keys,  computational  or 
unsigned  fields.  Several  failures  of  unsigned  computational 
fields  might  be  found  in  tests  of  another  module  indicating  a  pro¬ 
blem  with  such  fielde.  If  a  diagnostic  message  or  a  manufacturer's 
manual  warns  of  computational  iteme  being  considered  as  always 
signed,  it  could  be  assumed  that  this  is  the  cause  of  the  failure. 

Since  the  purpose  of  test  1ST09  is  to  teet  certain  RETURN  etate- 
ment  situations,  the  uee  of  this  particular  key  is  incidental 
and  thue  the  test  would  still  be  valid  without  it. 
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Several  changes  might  be  made  to  eliminate  the  error 
from  the  test  but  perhaps  causing  the  expected 
value  check  to  be  changed  from  +14  to  -14  would  be 
the  easiest. 

In  the  teet  program  listing  for  1STD9,  card  851180 
(Columns  1  -  6)  is  found  to  contain  the  14  ueed  in  the 
existing  check.  A  replacement  card  851180  with  -14  is 
prepared  and  used  in  an  SPM  run  to  update  test  program  38. 
The  SPIY1  output  provides  a  record  of  the  change. 
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SECTION  IV 


OPERATING  INSTRUCTIONS 

4.1  COMPILATION  AND  EXECUTION 

Because  the  CCVS  is  intended  to  be  usable  uith  any  COBOL 
compiler,  it  is  readily  apparent  that  it  must  operate  in 
any  of  a  large  number  of  environments.  For  this  reason, 
the  compilation  and  execution  of  the  test  programs  are 
discussed  here  in  general  terms,  rather  than  in  relation 
to  any  particular  implementation. 

Several  items  will  be  useful  to  the  operator  in  preparing 
to  run  the  CCVS: 

1.  The  implementor’s  COBOL  manual, 

2.  The  appropriate  operating  system  manual,  (a  COBOL 
related  abstract  may  be  contained  in  the  COBOL 
manual) , 

3.  A  Printout  of  test  program(s)  from  Selector  run 
(or  Source  Program  Maintenance). 

The  paragraphs  that  follow  outline  a  series  of  steps  that 
must  be  taken  to  prepare  for  compilation  and  execution. 

Determine  if  the  implementation  being  tested  will  allow  stacked 
input)  i.e.,  multiple  programs  not  separated  by  end-of -f  i  le  marks. 
If  not,  the  user  must  take  one  of  the  following  approaches: 

1 .  Choose  tests  such  that  only  one  program  will  be 
produced  by  the  Selector  program. 

2.  Punch  out  the  Selector  output  file  and  manually 
separate  the  programs,  using  columns  73-74. 

3.  Write  a  program  to  copy  the  Selector  output  file 
and  insert  the  appropriate  end-of-file  marks  between 
programs. 

Determine  the  method  of  assigning  "implementor-name"  (in  the 
ASSIGN  clause  of  the  SELECT  sentence)  to  a  physical  device. 

This  is  often  done  at  execution  time  with  a  type-in  or  control 
card,  although  in  some  systems  it  may  be  specified  either 
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explicitly  or  implicitly  in  the  ASSIGN  clause  itself.  If 
neither  Sequential  nor  Random  Access  is  being  tested,  the  user 
need  only  determine  the  aseignment  for  the  devices  to  be  used 
for  printing  (often  a  printer,  although  eometimes  a  file  that 
is  printed  in  a  separate  operation),  and  for  ACCEPT  and  DISPLAY 
statements  (these  may  not  require  explicit  assignment). 

If  Sequential  without  maes  storage  is  being  tested,  the  tape  and 
printed  "implementor-namee"  must  be  assigned  to  their  appropriate 
devices.  If  either  Sequential  maes  storage  operations  or  the 
Random  Access  moduls  is  bsing  tested,  the  mass  storage  "implsmsn tor- 
namee"  must  also  be  appropriately  aeeigned. 

Determine  any  unusual  control  cards  that  may  be  necessary.  For 
example,  a  machine  that  hae  no  hardware  ewitches  may  simulate 
them  via  control  information. 

If  Segmentation  is  being  tested,  determine  whether  any  control 
cards  are  needed  or  affected  thereby. 

If  Sort  teste  are  being  tested,  extra  control  information  may  be 
needed  by  the  sort  program  invoked  by  the  Sort  statement. 

Some  determination  must  aleo  be  made  about  what  is  necessary 
to  invoke  execution  of  both  the  compiler  and  the  resulting  object 
program.  Implementations  differ  considerably  in  thie  area,  ranging 
from  eimple  to  very  complex. 

Although  the  preferred  procedure  is  to  set  up  the  job  as  a  ’’compile 
and  go"  operation,  as  nearly  self-contained  as  possible,  an 
occasional  implementation  may  not  allow  thie  approach. 

There  are  a  number  of  areas  in  which  machine  dependent  problems 
may  manifest  themeelves.  For  example,  the  bit  configuration 
generated  by  arithmetic  on  signed  fields  is  sometimes  not  repre¬ 
sented  by  a  printer  graphic.  When  thie  occurs,  extra  care  is 
neceseary  to  insure  that  proper  interpretation  ie  made. 


-47- 


Some  machines  have  rather  specialized  input  media  such  as  paper 
tape  or  magnetic  tape  only.  UJhen  this  occurs,  some  means  of 
translation  from  punched  card  format  must  be  devised.  It  should 
be  remembered,  however,  that  a  machine  of  a  particular  make  and 
model  can  usually  be  found  somewhere  with  provision  for  punched 
card  format  input. 

A  situation  sometimes  arises  in  which  input-output  software 
limitations  cause  problems.  For  example,  compilers  occasionally 
limit  references  to  any  given  FD  to  only  one  mode  (i.e.,  INPUT, 
OUTPUT,  etc.).  This  is  a  severe  limitation  that  renders  the 
compiler  non-standard.  To  run  Sequential  and/or  Random  Access 
module  tests  with  this  restriction,  the  user  must  run  on  an 
individual  test  basis  using  the  "DROP"  facility  in  the  Selector 
Program  and  possibly  the  Source  Program  Maintenance  Program 
to  construct  the  runs. 

Another  non-standard  restriction  is  more  easily  circumvented 
in  the  test  runs  but  could  be  quite  cumbersome  in  a  production 
environment.  This  is  the  caee  where  the  "implementor-name" 
in  the  ASSIGN  clause  of  the  SELECT  sentence  is  restricted  to 
repreeenting  a  unique  physical  device.  (e.g.,  tape  unit  1). 

To  run  the  tests  in  this  environment,  a  separate  physical 
device  is  required  for  every  FD  in  a  given  run  and  the  "implementor- 
names"  inserted  by  the  Selector  have  to  be  changed  using  the 
Source  Program  Maintenance  Program. 

In  the  sections  that  follow,  some  specified  considerations  such 
as  input-output  assignments  and  file-paeeing  requirements,  are 
discussed  for  each  program  in  the  CC VS . 
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4.2 


4.2.1 


POPULATION  FILE  MAINTENANCE  PROGRAM 


Input-Output  Assignments 

The  following  table  defines  I/O  requirements  for  this  program 


Printer 


Input 

File  Name  Output 

P0P-FILE  L~ 

TAPE-0UT  o 

C0NTR.0L-CARD  i 

PRINTER-0UT  o 


Usage 

Old  Population  File  master. 
New  Population  File  master. 
Update  cards. 

Listing. 


NOTE:  0  indicates  alpha  0  in  file-names. 
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4.3 


SELECTOR  PROGRAM 


4.3.1  Input-Output  Assignments 

The  Selector  consists  of  three  COBOL  programs  which  must  be  inter¬ 
faced  with  two  sorts.  The  sorts,  either  system  sorts  or  simple 
COBOL  sort  statements  of  the  USING,  GIVING  type,  must  be  provided 
as  separate  jobs  or  job  steps.  File  passing  must  also  be  provided 
for  between  the  execution  of  these  phases. 


A  typical  job  flow  using  a  system  control-aard  type  of  sort  facility 
is  shown  below. 
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Filee 

PHASE 

used  by  the  Selector  are: 

Name  on  chart  FD  Name 

printer 

input 

output 

scratch 

file 

paeeing 

record 

size 

Sel  I 

Population  F ile 

P/JP-FILE 

i 

not  paseed 

80 

Sel  I 

Selector  Control 
File 

CdNTR-dL-CARD- 

FILE 

i 

not  passed 

80 

Sel  I 

TmPOUT 

TEMP-jdUT-FILE 

s 

not  passed 

80 

Sel  I 

SEL10UT 

SEL-^UT 

0 

passed 

117 

Sel  I 

PRINTER-jdUT 

D 

Sort  I 

SEL10UT 

i 

not  passed 

117 

Sort  I 

SRT10UT 

0 

passed 

117 

Sel  II 

SRT10UT 

SEL-INS-FILE 

i 

not  passed 

117 

Sel  II 

SEL20UT 

SEL-JE)UT-FILE 

0 

passed 

BB 

Sel  II 

PRINTER-dUT 

D 

Sort  II 

SEL20UT 

i 

not  passed 

BB 

Sort  II 

SRT20UT 

0 

passed 

BB 

Sel  III 

SRT20UT 

SEL-INS-FILE 

i 

not  passed 

BB 

Sel  III 

TESTFIL 

SEL-0UT-FILE 

0 

passed 

BO 

Sel  III 

TMPOUT 

SEL-TMP-FILE 

s 

not  passed 

BB 

Sel 

PRINTER-0UT 

P 

All  messages  are  placed  on  PRII\ITER-OUT.  Messages  include  certain  error 
checking  plus  sequence  checking.  In  the  event  of  an  error  in  the  sequence 
of  records  coming  from  a  sorting  step,  the  selector  requests  on  the 
printer  that  the  eort  be  performed  again  and  then  terminates  the  phase. 


-51- 


4.3.2  Sort  Control  Fields 


The  Selector  appends  keys  to  the  front  of  the  records  to  be  sorted, 
and  arranges  the  key  fields  such  that  the  entire  key  may  be  used 
as  a  single  key  for  simplicity.  The  relative  sequence  of  records 
with  like  keys  is  unimportant  and  no  assumptions  are  made  by  the 
Selector  based  upon  such  sequences.  Since  records  are  not  modified 
during  sorts,  input  record  counts  should  equal  output  record  count,.'  . 

Sort  I 


Major  key 

1-2 

Alphanumeric 

Ascending 

Inter  key 

3-32 

ii 

ii 

Minor  key 

33-37 

u 

it 

(body) 

38-117 

II 

Major  key 

1-2 

Alphanumeric 

Ascending 

Minor  key 

3-8 

ii 

ii 

( body ) 

9-88 
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4.4 


SOURCE  PROGRAM  MAINTENANCE  PROGRAM 


4.4.1  Input-Output  Assignments 

SPM  is  a  single  phase  program  whose  purpose  is  to  permit  updating 
a  test  program  file  by  means  of  a  maintenance  file  in  order  to  form 
a  new  test  program  file. 


The  operator  must  verify  the  control  card  set  up  for  the  maintenance 
file  and  for  the  compile  and  execution  (or  just  execution  if  pre¬ 
viously  compiled)  of  SPM  itself.  The  source  program  for  SPM  is 
obtained  by  use  of  the  Selector  Program. 

A  typical  job  flow  is; 


The  table  that  follows  defines  the  I/O  requirements: 

printer 

input  Record 


Name  on  chart 

FD  Name 

output 

Size 

Notes 

Test-Program  Source 

SOURCE-FILE 

i 

80 

Test-Program  Changes 

IDA  INT-FI LE 

i 

80 

May  be  card 
reader,  tap 
or  disk. 

Revised  Test  Program 

OUT-FILE 

0 

80 

Source 

PRINT-FILE 

P 
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4.4.2  Preparation  of  Test  Program  Change  Deck 


System  control  cards  may  be  included  to  provide  an  end-of-file 
for  this  deck.  The  deck  may  be  pre-placed  on  a  tape  or  disk  f i 1 * 
or  it  may  be  read  from  a  card  reader. 

If  the  END  (column  7-9)  card  is  used  as  the  last  card  in  the  change  deck, 
no  attempt  will  be  made  to  read  beyond  that  card. 

The  order  of  the  deck  is  sequence  number  (column  1-6)  within 
program-number  (column  73-74),  with  these  exceptions: 

1.  OPTION  (column  7-12)  cards  may  appear  at  the  front  of  the  deck. 

2.  END  (column  7-12)  card  may  appear  at  the  end  of  the  deck  and  serves 

the  same  function  as  an  end-of-file. 

3.  Change  cards  may  be  blank  in  columns  1-6  if  they  follow  a 
change  or  a  DELETE  card  which  has  a  value  in  column  1-6. 
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4.5  CHARACTER  CODE  CONVERSION  PROGRAM  (Sec.  3.4) 


The  CCVS  Character  Code  Conversion  program  is  an  IBM  System 
360  BAL  program  and  may  be  run  on  any  System/360  with  a 
console  typewriter  with  unit  address  OIF,  a  card  reader  with 
unit  address  00C,  and  the  additional  I/O  devices  needed  by  the 
user . 

1.  Place  object  deck  followed  by  the  MS0URCE,?  and  "OBJECT" 
control  cards,  followed  by  the  input  deck  (if  any)  in  the 
card  reader  hopper. 

2.  Ready  any  other  devices  to  be  used. 

3.  Press  LOAD.  An  END  OF  JOB  message  will  be  typed  out  when 
the  run  is  completed. 

4.  I/O  errors  and  control  card  errors  will  be  typed  out  in  the 
following  format: 

I/O  ERROR  ddd  STATUS  aaaa  SENSE  bbbb 
WHERE:  ddd  =  device  address 


aaaa  =  status  bytes 
bbbb  =  sense  bytes 


INTERVENTION  REQUIRED  ddd 

JOB  CANCELED  -  PERMANENT  I/O  ERROR  ddd 

JOB  CANCELED  -  CONTROL  CARD  ERROR  cc 


WHERE:  cc  =  error  code 


CODE 


ERROR 


20 


10 


30 


CC1-6  do  not  contain  "SOURCE" 
or  "OBJECT" 

CC7-11  do  not  contain  valid  hex 
characters  (0-9,A-F ) 

CC10-11  do  not  contain  a  legal  data 
mode 
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4.6 


TEST  PROGRAMS 


The  Selector  program  is  capable  of  generating  a  number  of 
test  programs.  The  exact  number  generated  for  any  particular 
run  depends  on  the  content  of  the  TEST  card.  A  epecific  test 
program,  in  turn,  may  or  may  not  contain  the  teste  for  a 
particular  module.  Thus,  each  test  program  presents  ite 
own  set  of  operational  problems,  but  the  number  of  these  to 
be  resolved  during  a  given  test  session  is  variable. 

All  test  programs  utilize  the  output  device  identified  ae  the 
PRINTER  in  the  environmental  data.  Other  devices  used  depend 
on  the  exact  content  of  the  program.  In  most  caeee,  the 
control  information  required  by  a  particular  implementation 
can  be  obtained  from  the  source  listing  of  the  test  program. 
Some  unusual  problems  are  discussed  below,  by  program 
number . 
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4.6.1  P rug ram  10 


Progra/ri  TO  contains,  at  most,  tests  of:  NUC,  TBL,  SEQ,  RAC, 

2SRT ,  and  1RPW  (except  1 RW01 ) . 

SEQ  and  RAC  present  no  particular  problems.  2SRT  interfaces 
through  the  SORT  verb  with  the  implementor's  generalized 
sort  program.  This  interface  may  cause  additional  control 
information  requirements : 

1.  Some  control  systems  require  special  information  on 
files  utilized  by  the  USING  and  GIVING  options  of  the 
SORT.  The  following  file-names  describe  files  asso¬ 
ciated  with  one  of  these  two  options: 

FILE-NAME-USING-2SRT-1 

FILE-NAIY1E-USING-2SRT-3 

FILE-NAIY1E-GIVING-2SRT-4 

2.  Sort  work  files  may  not  necessarily  be  ASSIGNed  in  the 
Environment  Division,  but  rather,  may  have  implicit 
assignments  that  require  that  control  information  be 
submitted  for  prescribed  device-names.  This  will 
usually  be  mentioned  in  the  implementor's  COBOL  manual. 

RPliJ  produces  output  that  may  have  to  be  printed  off-line.  The? 
exact  format  of  tapes  written  under  control  of  a  particular 
implementation's  Report  Writer  feature  must  be  determined  from 
the  COBOL  manual.  Of  particular  interest  are:  (l)  record 
length,  (2)  block  length,  (3)  relative  position  and  meaning  of 
the  printer  carriage  control  symbols  used  by  Report  Writer,  and 
(4)  recording  mode  of  the  report  tapes. 

LIB  presents  a  special  problem  because  the  input  format  of 
entries  to  the  implementor's  "COPY"  library  and  the  methods  for 
creating  and  maintaining  such  a  library  are  not  specified  in 
the  USA  Standard  COBOL. 


-57- 


Library  entries  are  carried  in  the  Population  file  in  program  5U 
and  can  be  acquired  for  a  particular  implementation  by  specifying 
TEST  OLID.  Each  entry  is  proceeded  by  a  header  that  contains  the 
name  by  which  the  entry  is  referred  to  by  the  COPY  statement  in  the 
test  program.  This  header  is  merely  for  information  and  is  not  foi 
entry  in  the  library. 

The  library  entries  must  be  placed  in  the  "COPY"  library  in  the 
format  and  using  the  method  of  the  implementation  in  question. 

Both  items  of  information  can  usually  be  found  in  the  COBOL  manual. 

4.6.2.  Program  11 

Program  11  contains,  at  most,  tests  of  1SEQ  (1SQ22), 
and  2RPUJ.  Tho  general  considerations  discussed  in  program 
10  apply  to  program  11  as  well. 

2RUJQ3  tests  the  CODE  clause  of  the  RD  by  interspersing  three  reports 
on  a  single  file  (FILE-NflmE-REP0RT“2RPUI--3) .  The  COBOL  Report  Writer 
assigns  a  unique  code  to  records  of  each  of  the  three  reports.  Pre¬ 
sumably,  the  implementor  supplies  a  utility  program  that  is  able  to 
separate  the  file  at  print  time.  If  such  a  program  is  not  available, 
the  tape  can  be  dumped  for  visual  inspection. 

4.6.3  Programs  12-14 

Programs  12-14  contain  tests  for  5EG.  These  tests  have  no  explicit 
Input-Output  requirements.  Some  implementations  may  require1 
additional  control  information  because  one  or  more  object  program 
segments  reside  on  an  external  device.  Because  it  is  impossible 
to  predict  how  many  segments  will  be  forced  onto  external  storage, 

(if  any),  this  information  will  have  to  be  found  in  the  source 
program  listing,  in  a  procedure  map  or  similar  display. 

4.6.4  Programs  15-18 

Programs  15-18  contain  the  library  tests  (except  1LB04  and  1LBD6). 

The  OLIB  library  entries  must  have  been  placed  in  the  "COPY”  library 
prior  to  compiling  programs  15-18. 
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4.6.5  Program  19 

Program  19  contains  the  tests  1N314,  CURRENCY  SIGN  and  1N315, 
DECIMAL  POINT.  Neither  test  requires  any  control  information. 

Program  20 

Program  20  tests  DISPLAY  without  the  UPON  option,  then  ACCEPT 
without  the  FROM  option,  followed  by  ACCEPT ...  FROM ,  then  DISPLAY 
...UPON.  The  devices  addressed  by  these  statements  may  have  to 
appear  in  an  entry  on  an  operating  system  control  card. 

The  DISPLAY  statement  of  1N304  outputs  the  string 

AB . vz  +  -  >  <  =  S  ,  ;  .  (  )  /  $  01 . 9 

on  the  DISPLAY  device.  If  this  device  is  visible  to  the  oporator, 
this  display  will  indicate  that  ACCEPT  will  immediately  follow. 

The  ACCEPT  statement  of  1N305  requires  as  input  the  character 
string : 

ABCDE . XYZ012 . 9  +  -  * 

with  no  intervening  spaces.  If  the  ACCEPT  device  is  the  operator's 
console,  the  operator  must  key  in  this  string  at  the  appropriate 
time.  Otherwise,  the  string  must  be  entered  on  the  media  used 
by  the  ACCEPT  device  (card-reader,  paper-tape  reader,  etc.). 

The  ACCEPT  statement  of  2N050  (which  immediately  follows  the  ACCEPT 
of  1N305)  requires  as  input  the  character  string. 

1 23456709* 

The  DISPLAY  from  2N051  produces  the  character  string: 

2N051  ABCDEFGH 1 301 23456789 

The  final  DISPLAY  from  2N052  produces  the  character  string: 

2N05?  -AB...YZ  +  -  >  <  =  $  ,;.()/  jrf  01 . 9 

2N057  -AB...YZ  +  -  =  %  ,;;()/  $  0 . 9A...7  4 

=  $  ,  |  •  (  )  /  0 ...  9 

Programs  21  and  22 

Programs  21  and  22  test  Declarative  LABEL  PROCEDURES  but  present 
no  problems. 
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4.6.6  Programs  3U-44 


Programs  3CJ-44  each  contain  one  test  of  a  1SRT  feature.  Ihe 
individual  programs  generally  alternate  in  function  between 
creating  a  file  to  be  sorted,  and  performing  the  sort  itself 
and  verifying  the  output.  As  a  result,  files  must  be  passed  from 
the  creating  programs  to  the  program  that  sorts  and  verifies. 

The  implementor’s  techniques  for  identifying  files  passed  between 
programs  must  be  used. 

The  table  below  indicates  the  files  passed  by  the  various  programs: 


FD  file  name 

created  in 

Used  in 

Rec  Size 

Notes 

FI LE-NAmC-US ING-3 

31 

32 

(USING) 

Id 

FILE-NAME-USING-4 

32 

33 

(USING) 

18 

FILE-NAME-GIVING-4 

33  (GIVING) 

34 

18 

FILE-NAME-GIVING-6 

35  (GIVING) 

36 

27 

Alt.  device  possible 

FILE-NAME-USING-11 

39 

40 

(USING) 

50- 

-100 

di f fe ring  lengths 

FILE-NAME-USING-11 

40  (GIVING) 

41 

50- 

-100 

differing  lengths 

FILE -NAME-USING-14 

42 

42 

(USING) 

33 

multi-reel 

FILE -NAME -GIVING-14 

43 

44 

33 

mu  1 ti-i ce 1 

4.6.7  Program  4b 

Program  45  is  identical  to  1ST01  except  that  the  SD  entry  is; 
copied  from  the  "COPY"  library. 

4.6.0  Program  46 

Program  46  is  identical  to  1RUJ02  except  that  the  RD  entry  is 
copied  from  the  "COPY"  library. 

4.6.9  Program  47 

Program  47  contains  1RUJ01  as  it  is  not  compatible  with  other 
programs.  Ihe  report  writer  considerations  mentioned  under 
program  10  apply  to  program  47  also. 
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APPENDIX  I 


DROP  CODE  LIST 


The  COBOL  language  features  that  may  be  dropped  during  Selection  are 
listed  under  DESCRIPTION.  The  column  headed  FPIfl  shouis  the  Func¬ 
tional  Processing  Module  to  which  each  feature  belongs. 


DESCRIPTION 

FPM 

CODE 

LANGUAGE  CONCEPTS 

Punctuation  Character  , 

2  NUC 

1A 

• 

• 

2  NUC 

IB 

Relation  Characters  >  < 

2  NUC 

1C 

s 

2  NUC 

ID 

Condition-names,  lev/el-88,  Condition-name  test 

2  NUC 

IE 

Procedure-names,  all  numeric 

2  NUC 

IF 

Figurativ/e  Constants:  plural  forms 

2  NUC 

1G 

ALL,  except  for  •character1 

2  NUC 

1H 

Logical  connectives  AND  OR,  Compound  conditions 

2  NUC 

13 

Qualification:  Data  Division 

2  NUC 

IK 

Procedure  Division 

2  NUC 

1L 

Indexing  feature 

1  TBL. 

lm 

Reference  Format:  continuation  of  words 

and  numeric  literals 

2  NUC 

IN 

IDENTIFICATION  DIVISION 

DATE-COMPILED 

2  NUC 

2A 
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DESCRIPTION 

FPM 

CODE 

ENVIRONMENT  DIVISION 

CONFIGURATION  SECTION 

SPECIAL-NAMES  CURRENCY  SIGN 

1  NUC 

3A 

DECIMAL-POINT 

1  NUC 

3B 

1-0  SECTION 

OPTIONAL  Files 

2  SEQ 

3C 

RESERVE  clause 

2  SEQ 

30 

SAME  AREA 

1  SEQ/RAC 

|  3N 

RECORD  option 

2  SEQ/RAC 

3P 

SORT  option 

2  SRT 

3R 

series  option 

2  SEQ/RAC/ 
SRT 

3S 
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DESCRIPTION 

FPm 

CODE 

DATA  DIVISION 

Level  numbers:  66 

2  NUC 

4S 

88 

2  NUC 

IE 

single  digit 

2  NUC 

4A 

Abbreviations  SYNC,  OUST,  PIC,  COIYIP 

1  NUC 

4B 

BLOCK  integer-1  TO  option 

2  SEQ 

4D 

CODE 

2  RPUJ 

4E 

GROUP  INDICATE 

2  RPUJ 

4F 

JUSTIFIED  RIGHT 

1  NUC 

4G 

LABEL  RECORDS  data-name 

2  SEQ/RAC 

4H 

OCCURS 

ASCENDING/DESCENDING 

3  TBL 

40 

INDEXED  BY 

1  TBL 

1  M 

DEPENDING  option 

3  TBL 

4L 

PICTURE  mixed  A,  X,  9  in  AN  Picture 

1  NUC 

4M 

AN  edited  items 

1  NUC 

4N 

Currency  Sign 

1  NUC 

3A 

Decimal  Point 

1  NUC 

3B 

RECORD  CONTAINS 

1  SEQ/RAC 

4P 

RENAMES  and  lev/el  66 

2  NUC 

4S 

SYNCHRONIZED 

1  NUC 

4T 

USAGE  COMPUTATIONAL 

1  NUC 

4U 

INDEX 

1  TBL 

1  M 

VALUE  literal  series 

2  NUC 

4  V 

literal  THRU  literal 

2  NUC 

411) 

VALUE  OF  date-name  IS  data-name 

2  SEQ/RAC 

4X 
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DESCRIPTION 

rpm 

CODE 

PROCEDURE  DIVISION 

Arithmetic  formulas 

2  NUC 

5A 

Conditions:  Relational  operators  ^  ^ 

2  NUC 

1C 

T3 

2  NUC 

ID 

Condition-name  condition 

2  NUC 

IE 

Compound,  logical  ops.  AND,  OR 

2  NUC 

13 

Abbreviation  1 

2  NUC 

58 

2 

2  NUC 

5C 

Options:  ROUNDED 

1  NUC 

5E 

SIZE  ERROR 

1  NUC 

5F 

multiple  result  f ields-Arith.  verbs 

2  NUC 

5G 

CORRESPONDING,  ADD  and  SUBTRACT 

2  NUC 

5H 

NO  REUIIND,  OPEN  and  CLOSE 

2  SEQ 

5K 

Verbs  and  options 

ACCEPT  FROM 

2  NUC 

6F 

CLOSE  UNIT 

2  5EQ/RAC 

5L 

LOCK 

2  SEU/RAC 

5M 

COMPUTE 

2  NUC 

5P 

DISPLAY  UPON 

2  NUC 

6H 

DIVIDE  BY  option 

1  NUC 

5R 

REMAINDER  option 

2  NUC 

5D 

IF  nesting  on  true  path 

2  NUC 

55 

nesting  on  false  path 

2  NUC 

5T 

MOVE  CORRESPONDING 

2  NUC 

5U 

OPEN  REVERSED 

2  SEQ 

5V 

PERFORM  VARYING  2  and  3  levels 

2  NUC 

5Ui 
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DESCRIPTION 

FPffl 

CODE 

READ  INTO 

2 

SEQ/RAC 

63 

RELEASE 

2  SRT 

5X 

RETURN  INTO 

2  SRT 

5Y 

SEARCH  (format  1) 

3  TBL 

52 

ALL  (format  2) 

3  TBL 

43 

SEEK 

1  RAC 

6A 

SET 

1  TBL 

im 

USE 

Error  procedure 

2 

SEQ/RAC 

6B 

Label  procedure 

2 

SEQ/RAC 

4H 

BEFORE  REPORTING 

2  RPUi 

6C 

WRITE  ADVANCING 

BEFORE 

1  SEQ 

6D 

AFTER 

1  SEQ 

6E 

FROin 

2 

SEQ/RAC 

6K 
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APPENDIX  II 

TEST  -  DROP  CODE  CROSS  REFERENCE 
TABLE  1.  DRCP  CODE  USAGE  IN  TESTS 


r  '■ 

CODE 

fpiti 

I 

USED  IN  TESTS 

1A 

2NUC 

2N061 

....  ... 

2NUC 

2N061 

1C 

2NUC 

2N043 

ID 

2NUC 

2ND24-2N032 , 2N034,2NC35 ,2N043{ 2N045 , 2N046 

IE 

2NUC 

2N059 

IF 

2NUC 

2N061 

1G 

2NUC 

2N058 

1H 

2NUC 

2N058 

10 

2NUC 

2N039-2N042 

IK 

2NUC 

2N058 

1L 

2NUC 

2N053 ,2N054 

im 

1TBL 

| 

i 

1TH02-1TH04 , 2THD2-2TH04 , 3TH01-3TH04  ,  2N022 

IN 

2NUC 

1 

2N008 

1 

2A 

1 

1 

2NUC 

1 

2N060 

3A 

1NUC 

1N314 

30 

1NUC 

1N315  1 

3C 

2SEQ 

2SQ05 

30 

2SEQ 

2SQ06-2SQ08,2ST04 
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3l\J 

1SEQ/RAC 

1SQ11,1SQ12 

3P 

2SEQ/RAC 

2ST02 

3R 

2SRT 

2ST03 

3S 

2SRT 

2ST03 

4D 

1I\)UC 

1N316 

4D 

2SEQ/RAC 

2RA01-2RA08 ,2SQ06-2SQ08 

4E 

2RP11J 

2R11J03 

4F 

2RPUJ 

2RUJ01, 2RUJ02 

4G 

1NUC 

1N313,2RUJ03, 2ST01 , 2ST03,-2ST06, 1N316 

4H 

2SEQ/RAC 

2SQ06 , 2SQ07 , 25Q1 2, 2SQ1 5, 2RA1 3 , 2RA1 7 , 2RA1 8 

43 

3TBL 

3TH02 , 3TH04 

4L 

3TBL 

3TH03-3TH06 

4m 

1I\1UC 

1N313 

4N 

1I\1UC 

1N004,1I\1013,1I\1016,1I\1017,1M020,1I\1025,1I\1028 

1l\]034,1l\]037, 1N040, 1N343, 1 1\]047 , 1 N052 

4P 

iseq/rac 

1SQ09,1SQ10, 1SQ21 , 1ST06, 1ST07, 1ST10-1ST1 2, 2SQ1 1 

4S 

2NUC 

2N056,2N057 

4T 

1NUC 

1N313, 1N316 
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4U 

1NUC 

1NQ77-1N080, INI  05-1 N1 08, IN 31 3, 1N31 6, 1N132-1N1 34 

INI  69-1 N171 , 2ST01 , 2ST02, 2ST06 

4V 

2NUC 

2N059 

4UJ 

2I\)UC 

2N059 

4X 

2SLQ/RAC 

2RA13-2RA16 , 2SQ0G , 25Q07 

5A 

2NUC 

2NQ26-2N032 , 2N034-2N036 

5B 

2NUC 

2N045 

5C 

2NUC 

2N046 

5D 

2NUC 

2N033 

5E 

1NUC 

1N066, 1N067, 1N070-1NQ73, 1NQ94, 1N095, 1N098-1N101, 1N121 , 
1N124, 1N125, 1N127, 1N130, 1N131 , 1N151, 1N154 , IN 15b, 1N157 , 

IN 160 , 1N161 , 1N163 , IN 166 , 1N167 , 2N001 , 2N003 , 2N0G5 , 2N007 , 
2N009,2N011,2N031,2N034,2N035 

5F 

1NUC 

1N068-1N073 , 1N080 , 1N096-1N101 , 1N108 , 1N122-1N125 , IN 120- 
1N131 , 1N152-1N155 , IN 158-1 N161 , 1N164-1N167 ,2N002 , 2N003, 
2N006,2N008,2N009, 2N01 5 , 2N032, 2N034 , 2N037 , 2ST00 

bG 

2NUC 

2 NO 01 , 2N003, 2N007-2N009 

bl) 

2NUC 

2N004-2NQ06 ,2N010 , 2NU1 1 , 2N01 3 , 2N01 5 

bK 

2SEQ 

25Q06, 2SQ09 

bL 

1SEQ/RAC 

18023, 1SQ28 

5rn 

2SEQ/RAC 

2RA16 , 2SQ00 

-68- 


5P 

2NUC 

2N024-2N032 , 2N034 , 2N035 

5R 

1NUC 

1N162-1N167, 1N171 

5S 

2NUC 

2N038 

5T 

2NUC 

2N038 

5U 

2NUC 

2N013,2N016 

5  U 

2SEQ 

2SQ10 

5VU 

2NUC 

2N020,2N022 

5X 

2SRT 

2ST04 ,2ST06 

5Y 

2SRT 

25T05,2ST06 

5Z 

3TBL 

3TH01, 3TH03 

6A 

1RAC 

1RA02 , 1RA03, 1RA06, 1RA07,2RA02 ,2RA03,2RA06 ,2R A07,2RA10 
2RA11,2RA14,2RA15 

6B 

2SEQ/RAC 

2SQ12,2RA17 

6C 

2RPUJ 

2RUJ04,2RIU05 

6D 

1SEQ 

1SQ21,2SQ11 

6E 

1SEQ 

1SQ21,2SQ11 

6F 

2NUC 

2N050 
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6H 

2NUC 

2N051,2N052 

60 

2SEQ/RAC 

2SQ14 ,2RA10-2RA12,2RA14-2RA16 

6K 

2SEQ/RAC 

2SQ13,2RA09,2RA11,2RA13,2RA15 
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TABLE  2.  DROP  CODE  ASSIGNMENT  BY  TEST 


TEST  ID 

DROP  CODES 

TEST  ID 

DROP  CODES 

1N004 

4N 

1N069 

5F 

1N013 

4N 

1N070 

5E,5F 

1N016 

4N 

1N071 

5E  ,5F 

1N017 

4N 

1N072 

5E  ,5F 

1N020 

4N 

1N073 

5E,5F 

1N025 

4N 

1N077 

4U 

1N028 

4N 

1N078 

4U 

1N034 

4N 

1N079 

4U 

1N037 

4N 

1N080 

4U,5F 

1N040 

4N 

1N094 

5F 

IN  04  3 

4N 

1N095 

5E 

1N047 

4N 

1 N  09  6 

5F 

1N052 

4N 

1N097 

5F 

1N066 

5E 

1N098 

5E  ,5F 

1N067 

5E 

1N099 

5E,5F 

1N068 

5F 

INI  00 

5E,5F 
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TEST  ID 

DROP  CODES 

TEST  ID 

DROP  CODES 

1N101 

5E,5F 

1N133 

4U 

1N105 

4U 

INI  34 

4U 

1N106 

4U 

1N151 

5E 

1N107 

4U 

INI  52 

5F 

INI  08 

4U,5F 

1N153 

5F 

1 N 1 2 1 

5E 

INI  54 

5E,5F 

INI  22 

5F 

1N155 

5E,5F 

1N123 

5F 

1N157 

5E 

INI  24 

5E,5F 

INI  58 

5F 

1N125 

5E,5F 

1N159 

5  F 

INI  27 

5E 

1N160 

5E,5F 

INI  20 

5F 

1 N 1 6 1 

5E,5F 

1N129 

5F 

1N162 

5R 

INI  30 

5E,5F 

INI  63 

5E,5R 

INI  31 

5E,5F 

INI  64 

5F,5R 

1N132 

4U 

1N165 

5F,5R 
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TEST  ID 

DROP  CODES 

TEST  ID 

DROP  CODES 

INI  66 

5E,5E,5R 

1SQ12 

3N 

1N167 

5E,5F,5R 

1SQ21 

4P,6D,6E 

1N169 

4U 

1SQ23 

5L 

1N170 

4U 

1SQ28 

5L 

1N171 

4U,5R 

1STQ6 

4P 

1N313 

4G  ,4tY1, 4T,  4U 

1ST07 

4P 

1N314 

3A 

1ST09 

4U 

1N315 

3B 

1ST10 

4P 

1N316 

4B,4G,4T,4U 

1ST11 

4P 

1RA02 

6A 

1ST12 

4P 

1RA03 

6A 

1TH02 

im 

1RA06 

6A 

1  TH  03 

1BI 

1RA07 

6A 

1TH04 

im 

1SQ09 

4P 

2N001 

5E,5G 

1SQ10 

4P 

2N002 

5F 

1SC111 

3N 

2N003 

5E,5F,5G 
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TEST  ID 

DROP  CODES 

TEST  ID 

DROP  CODES 

2N004 

5H 

2N026 

ID, 5A , 5P 

2N00b 

5E,5H 

2N027 

ID, 5A , 5P 

2N006 

5F,5H 

2N028 

ID , 5A , 5P 

2N007 

5E ,  5G 

2N029 

1D,5A,5P 

2NQ08 

5F , 5G , IN 

2N030 

1 D, 5A , 5P 

2N009 

5E ,  5F  ,  SG 

2N031 

ID , 5A , 5E , 5P 

2N01C) 

5H 

2N032 

ID, 5A , 5F , 5P 

2N011 

5E ,  5H 

2N033 

5D 

2N013 

5U 

2N034 

ID , 5A , 5E , 5F , 5P 

7N015 

5F,5H 

2N035 

1D,5A,5E ,5P 

2NG16 

5U 

2N03G 

5A 

7N020 

SUJ 

2N037 

5F 

2  N  0  2  2 

1  HI ,  SUJ 

2N033 

5S,5T 

2N024 

1D,5P 

2N039 

10 

2NQ2G 

ID,  5P 

2N040 

10 

2N041 

10 
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TEST  ID 

DROP  CODES 

TEST  ID 

DROP  CODES 

2N042 

10 

2RA02 

4D,6A 

2N043 

1C, ID 

2RA03 

4D,6A 

2N045 

ID,  5B 

2RA04 

4D 

2N046 

1 D ,  5C 

2RA05 

4D 

2N050 

6F 

2RA06 

4D,6A 

2N051 

6H 

2RA07 

4D,6A 

2N052 

6H 

2RA08 

4D 

2IM053 

1 L 

2RA09 

6K 

2N054 

1 L 

2RA10 

6A , 60 , 6K 

2IM056 

4S 

2RA11 

6A , 60 , 6K 

2N057 

4S 

2RA12 

6A , 60 , 6K 

2N058 

1G , 1 H , 1 K 

2RA13 

4H,4X,6K 

2IM059 

IE  ,4V  ,4UJ 

2RA14 

4H , 4X , 6A ,60 

2IM0G0 

2A 

2RA15 

4H  ,4X , 6A , 60 , 6K 

2N061 

1A, IB, IF 

2RA16 

4H  ,4X ,  5(Y1, 60 

2RA01 

4D 

2RA17 

4H,6B 
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TEST  ID 

DROP  CODES 

TEST  ID 

DROP  CODES 

2RA18 

4H 

2SQ1 5 

4H 

2RUI01 

4F 

2ST01 

4G,4U 

2RUJ02 

4E 

2ST02 

3P,4U 

2RIJJ03 

4E  ,4G 

2ST03 

3R , 35 , 4G 

2RUJ04 

6C 

2ST04 

33, 5X 

2RIUQ5 

6C 

2ST05 

5F,5Y 

2SQ05 

3C 

2ST06 

4G,4U,5X,5Y 

2SQ06 

33,4D,5K,4H,4X 

2TH02 

1111 

2SQ07 

30,4D,4H,4X 

2TH03 

111(1 

2SQ0Q 

33,4D,5Ifi 

2TH04 

2SQ09 

5K 

3TH0T 

im,5z 

2SQ1 0 

5  V 

3TH02 

im,43 

2SQ11 

4P,6D,6F. 

3TH03 

1IK1,4L,52 

2SG12 

4H,6B 

3TH04 

1IY1,43,4L 

23  cm 

6K 

3IH05 

4L 

2SQ14 

63 

3TH06 

4L 
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INITIATING  ENVIRONMENTAL  DATA 

Environmental  Data  is  entered  on  the  form  shown  in  Figure  3. 

The  number  of  each  entry  is  related  to  a  statement  found  in 
the  Environmental  Data  questionnaire  that  follows  Figure  3. 

The  information  required  is  found  in  the  implementor’s  COBOL 
manual. 

The  method  for  assigning  the  indicative  computer-name  is  dis¬ 
cussed  in  3. 1.1. 1.2. 

Figures  4,  5  and  6  are  presented  as  an  aid  to  understanding  the 
various  environmental  input  entries  and  how  they  are  treated  by 
the  PFdfl  run.  Figure  4  shows  a  form  similar  to  that  appearing 
in  Figure  3,  filled  out  with  entries  for  a  fictional  implemen¬ 
tation  -  the  XYZ  8795,  model  1.  Figure  5  shows  the  corresponding 
result  of  processing  this  information  through  PFIY1.  The  relationship 
between  the  user's  entries  on  Figure  4  and  the  PFIY1  output  of 
Figure  5  is  expressed  on  Figure  6.  This  indicates  for  each 
output  card  (ETOnnn),  the  user’s  entry  from  which  it  came  and 
any  transformations  applied  by  PFIY1.  In  the  absence  of  an  entry 
in  the  "Comments"  column,  the  PFIY1  output  is  taken  directly  from 
the  user  input.  UJhen  the  user  input  is  blank,  PFdfl  places  an 
’N’  in  column  7  of  the  corresponding  output  card. 
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Fieure  3,  Environmental  Data  Card  Format  (Cent 


FIELD  NUMBER  US  INFORMATION 

ON 

ENUIRONMENTAL  DATA  CARDS 


ENVIRONMENT  DIVISION. 
CONFIGURATION  SECTION. 


MAXIMUM 
NO.  OF 
CHARACTERS 
IN  ENTRY 


FIELD  NO. 


OBDECT  COMPUTER 


1 . 

The  implementors  name  for  OBJECT-COMPUTER . 

30 

2. 

The  mennry  size  and  unit  of  measure  as  specified  for 
the  MEMORY  SIZE  clause. 

30 

3. 

The  memory  size  of  the  object  computer  in  characters/by tes , 
written  as  a  six  digit  integer. 

6 

4. 

The  print  line  size  of  the  on-line  printer  written  as  a 
three  digit  integer  less  than  or  equal  to  120.  120  assumed 

if  omitted. 

3 

5. 

Name  specified  by  implemantor  for  a  switch  testable  by  the 
switch-status  test. 

30 

6 . 

Name  specified  by  implementor  for  the  switch  whose  setting 
indicates  a  RERUN  is  to  be  taken  (use  only  if  48=Y) 

30 

7. 

If  the  ’’mnemonic-name”  option  is  available  for  switch- 
names  enter  FI  RST-SUJI TCH  . 

12 

8. 

If  both  the  ON  STATUS  and  OFF  STATUS  options  are  available 
enter  a  M1.  If  only  ON  STATUS  is  available,  enter  !2!. 

1 

OTHER-NAMES 

9. 

Name  specified  for  the  device  available  using  the  FROM  option 
of  ACCEPT. 

30 

10. 

Name  specified  for  the  device  available  using  the  UPON  option 
of  DISPLAY. 

30 

11 . 

If  the  mnemonic-name  option  of  the  ADVANCING  feature  of  WRITE 
has  been  implemented,  write  the  character  designated  by  the 
implementor  to  denote  single  space,  enclosed  in  quotes  if 
necessary . 

3 

12. 

Write  the  charactor  denoting  double  space. 

3 

13. 

Wri to  tho  charactor  denoting  page  eject. 

3 

14. 

If  tho  ’’CODE  mnemonic-name”  option  of  tho  RD  clause  is 
i  rnp ]  omorited  enter  a  ”Y”. 

1 

INPUT-OUTPUT  SECTION 

FILE-CONTROL 

15. 

If  the  'integer'  option  of  the  ASSIGN  clause  is  available, 
enter  a  1 Y 1 . 

1 
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16. 


17. 

18. 

19. 

20. 

21. 

22. 

23,24. 
25  4  26. 

27. 


28. 

29. 


30. 


31. 


32,33 
&  34 


35. 


36. 


37. 


Entries  16  through  22  are  concerned  with  the  implomentor- 
names  for  input-output  devices.  Of  these,  the  entries  for 
the  3  tape  units,  the  card  reader  and  the  printer  are  mandatory 
(the  card  reader  and/or  printer  may  be  system-units  or  any 
sequential  device  not  previously  named).  Enter  the  implementor- 
name  for  the  first  tape-unit. 

Enter  the  implementor-name  for  the  second  tape  unit. 

Enter  the  implementor-name  for  the  third  tape  unit. 

Enter  the  implementor-name  for  the  first  of  two  mass- 
storage  devices  (may  be  omitted  if  no  device  available). 

Enter  the  implementor-name  of  the  second  mass-storage  device. 

( fYlay  be  omitted  if  no  device  available.) 

Enter  the  implementor-name  of  the  card  reader. 

Enter  the  implementor-name  of  the  printer. 

Enter  the  implementor-name  of  the  Sort  units  1  through  4  if  the 
SORT  feature  has  been  implemented. 

For  the  data-name  option  of  the  FILE-LIMIT  clause,  enter 
the  description  (picture  and  usage)  necessary  to  describe 
data-name  in  entries  27  and  28.  Enter  the  PICTURE  (e.g.,  9(5)). 

Enter  the  USAGE  of  data-name:  C  for  COMPUTATIONAL  or  D  for 
DISPLAY. 

Enter  the  literal  designated  by  the  implementor  as  meaning 
the  lowest  available  mass-storage  address  for  the  FILE-LIMIT 
clause. 

Enter  the  literal  that  indicates  a  mass  storage  address  twenty 
records  of  100  characters  each  higher  than  the  address  specified 
in  29. 

If  a  second  set  of  FILE-LIMITS  can  be  specified  in  the  implementation 
enter  a  number  that  when  added  to  the  literals  specified  in  29  and 
30  specifies  a  second  available  area  of  this  mass-storage  file. 

If  a  second  mass-storage  device  has  been  specified  (see  entry  20), 
specify  the  lower  and  upper  limits,  and  increment  for  it  in  the 
same  way  as  specified  under  29,  30  and  31. 

Enter  the  PICTURE  required  in  the  description  of  the  data-name 
used  in  the  ACTUAL  KEY  clause  (e.g.,  9(5)). 

Enter  the  USAGE  required  in  the  description  of  the  data-name 
used  in  the  ACTUAL  KEY  clause:  C  for  COMPUTATIONAL  or  D 
for  DISPLAY. 

Enter  the  literal  value  that  when  placed  in  the  data-name  of 
ACTUAL  KEY  will  indicate  the  lowest  mass-storage  address 
associated  with  the  first  area  allocated  for  the  first 
mass-storage  device  (see  29  and  30). 


-81- 


30. 

Enter  the  literal  value  that  when  placed  in  the  data- 
name  of  ACTUAL  KEY  will  indicate  the  lowest  mass-storage 
address  associated  with  the  second  area  allocated 
for  the  first  mass-storage  device  (sec  31). 

6 

39. 

Enter  the  literal  value  that  when  placed  in  the  data- 
name  of  ACTUAL  KEY  will  indicate  the  lowest  mass- 
s-torage  address  associated  with  the  first  area  allocated 
for  the  second  mass-storage  device. 

6 

40. 

Enter  the  literal  value  that  when  placed  in  the  data- 
name  of  ACTUAL  KEY  will  indicate  the  lowest  mass- 
storage  address  associated  with  the  second  area 
allocated  for  the  second  mass-storage  device  (sec  34). 

6 

41 . 

Enter  the  literal  value  that  corresponds  to  an  increment 
of  one  100  character  logical  record  to  the  ACTUAL  KEY 
of  the  first  mass-storage  device. 

6 

42. 

Enter  the  literal  value  that  corresponds  to  an 
increment  of  one  100  character  logical  record  to  the 

ACTUAL  KEY  of  the  second  mass-storage  device. 

6 

I-O-CONTROL 

43. 

If  an  implementor-name  is  available  to  the  RERUN  clause, 
enter  it  here. 

30 

Items  44-4Q  deal  with  the  versions  of  the  RERUN  clause 
available.  Enter  a  ’Y1  for  each  option  available:  each 
option  so  marked  will  be  tested. 

44. 

END  0E  REEL 

1 

45. 

END  Of  UNIT 

1 

46. 

integer  RECORDS  (item  43  above  must  be  filled  in) 

1 

47. 

integer  CLOCK-UNITS  (item  43  above  must  be  filled  in) 

1 

CO 

condition-name  (switch-name  must  be  entered  in  6) 

1 

DATA  DIVISION 

FILE  SECTION 

49. 

Inter  the  i mp] emnntor 1 s  fixed-name  for  the  file 
identification  to  be  usod  in  tho  VALUE  Of  clause. 

30 

5(1. 

[  nlnr  any  literal  value  that  corresponds  to tho 
implementor’s  rules?  for  the  content  of  the  file  idonti- 
fi cation.  Includo  quotos  if  required. 

13 

51. 

tutor  tho  imp lemon tor- 1  s  fixed  name  fur  an  item  in  tho 
standard  label  record  (other  than  file  identification) 
that  is  inserted  into  output  labels  (e.g.,  Relcntion- 
poriod) . 

30 
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52.  Enter  the  literal  corresponding  to  the  implementor- 

name  entered  in  51.  15 

53.  If  the  data-name  option  of  the  VALUE  OF  clause  is 
available,  enter  the  PICTURE  required  by  the 

implementor's  file  identification.  6 
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Figure  4.  Environmental  Data  Cards  for  XYZ-8795 


Figure  4.  Environmental  Data  Cards  For  XYZ-8795  (Cont'd) 


r  XV 7OA79S01 A 


fnv  Ann 


F  XV7nA79‘>01Y 


rjooi o 

V Y  7-A705 

F  7  0  0  7  0 

XY7-A795 

r  7  orno 

MFMOPY  s  T / F 

3?7*A  WORnS, 

r  7  0  0  a  0 

01  9**0 

ftoso 

PTCTIIRF 

r  7  n*o 

1  ?n 

F70070 

SW  T  TCFM 

r  tooao 

I  s 

fjrst-swttch 

F  TOOQO 

SWITCH? 

F701 no 

ON  S  T  A  T  i 

IIS  TS 

FT01 1 0 

OFF  STATUS  IS 

FTOl  70 

rnNSOl r 

r  7  0 1  in 

CONSO!  F 

P  T  0  1  4  0 

1 1  1 

f  T  )1  so 

i  7 : 

FTOl 

:  r  t 

F701 70 

!  A  1 

r  Tn \  AO 

1 

F  T  71  QO 

T  APF1 

V( 1  Pi  ) 


f  T  070 A 
f T0?1 n 

f  t  o  ?  ?  n 

FTOP30 

r  top An 
r  t  n?sn 

FTOPiSO 
r t  op/n 
ftopao 

f  TOPPn 
t  TA 30ft 
r  T031 0 
r  t  o  3  p  n 
F  T  0  3  30 
f  T  0  3  AO 
FT03S0 
F  T  O  3  0  0 
F  T  0  3  7  0 
F  T  0  3  A  n 
F  TO  300 
FTOAOO 
F  T  0  A  1  0 
F  TOAPO 
FT  OA  30 
F  T  0  A  A  O 
FTOASO 
F  T  0  A AON 
FT0A7ON 
FTOA AON 
FTOAQON 
FTOSOO 
FTO^I 0 
FTOSPO 


FAPF? 

TAPF3 

niSKI 


0  T  SKP 
RF  AOFR 
PPTNTFR 
Sf’RTI 
SORTP 
SORT  3 
SORT  A 

PICTllRF  SOCAl  COMPiiTAT  TONAI  , 

000001 
OOOOP1 
000030 
000001 
oooopi 

000030 


PlfTllRF.  SRCAT  COMPIITATTOMA!  . 

oooooi 
OOOOPI 
ooooo i 

OOOOPI 

000001 

000001 


RFRllN  nw  RFPUN-MAMF 

FVFRY  FHO  OF  BFFI 
FVFRY  F^O  OF  HM?T 
FVFRY  10  RFOOROS 
FVFRY  1  CLOCK-UNITS 
F  Vf  RY 

VALHF  OF  10 

V A l  I iF  nF  RFTFWTTON-PFRinn 
PlCTllRf  PCM 


T  S 
I  S 


I  MS  A  s I i 
0*p 


Figure  5.  Output  Listing  of  Environmental  Data  -  XYZ-8795 


OUTPUT 


FROM 


CARD  NO. 

ENTRY 

COMMENT 

ET0010 

1 

ET0020 

1 

ET0030 

2 

ET0040 

3 

Entry  3  is  divided  by  10  and  zero-filled  to  6  digits. 

ETOObO 

4 

Entry  4  plus  1 . 

ETU060 

4 

ET0070 

5 

ETOOBO 

7 

ET0090 

6 

ET0100 

8 

If  entry  8  =  1  or  2,  column  7  is  blank,  otherwise  N . 

ET01 1 0 

0 

If  entry  8=1,  column  7  is  blank,  otherwise  N . 

ET0120 

9 

ET0130 

10 

ET0140 

1  1 

ET0150 

12 

ET0160 

13 

ET0170 

14 

If  14  =  Y,  column  7  is  blank,  otherwise  N . 

ET0180 

15 

If  14  =  Y,  column  7  is  blank,  otherwise  N . 

ET0190 

16 

ET02U0 

17 

ETU210 

18 

ET0220 

19 

ET0230 

20 

ET0240 

21 

ET0250 

22 

ET0260 

23 

ET0270 

24 

ET0280 

25 

ET0290 

26 

F igure  6 .  ( 1 ) 

Relationship  Between  User  Input 
and  PFM  Environmental  Output 
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OUTPUT  FROM 


CARD  NO. 

ENTRY 

COMMENT 

ET0300 

27,  28 

Entry  28  is  first  letter  of  Usage. 

ET0310 

29 

ET0320 

30 

ET0330 

31 

E  T0340 

32 

ET0350 

33 

ET0360 

34 

ET0370 

35,  36 

Entry  36  is  first  letter  of  Usage. 

ET0380 

37 

ET0390 

38 

ET0400 

39 

ETO^IO 

40 

ET0420 

41 

ET0430 

42 

ET0440 

43 

ET0450 

44 

If  entry  is  a  Y,  column  7  is  blank,  otherwise  N . 

ET0460 

45 

If  entry  is  a  Y,  column  7  is  blank,  otherwise  N. 

ET0470 

46 

If  entry  is  a  Y,  column  7  is  blank,  otherwise  N. 

ET0480 

47 

If  entry  is  a  Y,  column  7  is  blank,  otherwise  N . 

ET0490 

48 

If  entry  is  a  Y,  column  7  is  blank,  otherwise  N. 

ET0500 

49,  50 

ET0510 

51,  52 

ET0520 

53 

Figure  6.  (2) 

Relationship  Between  User  Input 
and  PFM  Environmental  Output 
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APPENDIX  IV 


TEST  DIRECTORY 

NUC  1  .  90 

2  .  108 

TBL  1  .  114 

2  .  115 

3  .  116 

SEQ  1  .  117 

2  .  119 

RAC  1  .  120 

2  .  121 

SRT  1  .  123 

2  .  125 

RPUJ  1  .  126 

2  .  127 

SEG  1  .  128 

2  .  130 

LIB  1  .  131 

2  .  132 
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Tbs!  ID 

i  fJOCiV 

Summary  of  Test 

movL  gr p-GR ouTm^ou e-from  t6"Trp-gToup-~ 

IflOUE-TO. 

Breakdown  of  Printed  ResuJ to 

Receiving  field  is  printed. 

1N002 

mOUE  GRP-ALPH ABETI C  TO  UJRK-AN-0UU2G . 

Receiving  field  is  printed. 

IN  003 

IflOUE  GRP-ALPH ANUIflERIC  TO  UJRK-XN-00049. 

Receiving  field  is  printed. 

1N004 

IflOUE  GRP- ALPHANUMERIC  10  AE-0001  . 

Receiving  field  is  printed. 

1N005 

IflOUE  GRP-NUiflERIC  TO  UIRK-DU- 1 OUOO . 

Receiving  field  is  printed. 

1N006 

IflOUE  GRP-NUIflERIC  TO  NE-0001. 

Receiving  field  is  printed. 

1N007 

IflOUE  ALPHABET- AN-00026  TO  GRP-UJRK- 
AN-0002G. 

Receiving  field  is  printed. 

1NU00 

rnOUE  ALPHABET- AN-00026  TO  IURK-AN- 
00026. 

Receiving  field  is  printed. 

1N0D9 

IflOUE  ALPHABET- AN- 00 026  TO  UJRK-XN-00049. 

Receiving  field  is  printed. 

1  NO]  0 

IflOUE  A  LPH  A  MUIflER  I  C-XN-00049  TO 

GRP-UJRK-XN- 00049 . 

Receiving  field  is  printed. 

1  N0 11 

IflOUE  A  LPH  ANUITIERI  C-XN-00049  TO  UJRK-AN-00026 . 

Receiving  field  is  printed. 

1N012 

IflOUE  ALPHANUIflERI C-XN-00049  TO  UJRK-XN-00049. 

Receiving  fie5 Id  is  printed. 

1N013 

WOVE  ALPHANUIflERI C-XN-00049  TO  AE-0001. 

Receiving  field  in  printed. 

1N014 

WOVE  ALPHANUIflERI C-XN-00049  TO  UIRK-DU-10UU0. 

Receiving  field  is  printed. 

1  NO  111 

IflOUE  ALPHANUIflERI C-XN-00049  TO  NE-0002. 

Receiving  fiold  if;  printed. 

1N01S 

mOUE  AE-0001  TO  SUP-UJK-A . 

Receiving  fiold  is  printed. 

1  N0 17 

MOUE  AE-0001  TO  AE-0002. 

Receiving  field  is  printed. 

1N018 

IflOUE  DIGITS-DU-1UUGCJ  TO  GRP-UJRK-DU-10U00. 

Receiving  field  is  printed. 

1NQ19 

IflOUE  DIGITS-DU-10U00  TO  UJRK-XN-00049. 

Receiving  field  is  printed. 

1N020 

IflOUE  DIGITS -DU- 1 OUOO  TO  AE-0002. 

Receiving  field  is  printed. 

1N021 

IflOUE  DIGITS-DU-1  OUOO  TO  UJRK-DU-10U00 . 

Receiving  field  is  printed. 

1N022 

IflOUE  DIGITS-DU-06U04-S  TO  NE-0001. 

jRBcoiuing  fiold  ir>  printed. 
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Test  ID 

Summary  of  Test 

Breakdou/n  of  Printed  Results 

1N023 

MOVE  NE-0001  TO  GRP-U1RK-XN-00049. 

Receiving  field  is  printed. 

1  NO  24 

MOVE  NE-0001  TO  UJRK-XN-00049. 

Receiving  field  is  printed. 

1N025 

MOVE  NE-0001  TO  AE-0002. 

Receiving  field  is  printed. 

1N026 

MOVE  ZERO  TO  GRP-UJRK-DU-1  OVOO . 

,  Receiving  field  is  printed. 

1N027 

MOVE  ZERO  TO  UJRK-XN-00049. 

Receiving  field  is  printed. 

1N028 

MOVE  ZERO  TO  AE-0002. 

Receiving  field  is  printed. 

1N029 

MOVE  ZERO  TO  UJRK-DU-10V00. 

Receiving  field  is  printed. 

1N030 

MOVE  ZERO  TO  NE-0001. 

Receiving  field  is  printed. 

1N031 

MOVE  SPACE  TO  GRP-UIRK-DU-1 OVOO . 

Receiving  field  is  printed. 

1N032 

ITIOVE  SPACE  TO  UIRK-AN-00026. 

Receiving  field  is  printed. 

1.N033 

MOVE  SPACE  TO  UJRK-XN-00049. 

Receiving  field  is  printed. 

1N034 

MOVE  SPACE  TO  AE-0002. 

Receiving  field  is  print. ed. 

1N035 

MOVE  HIGH-VALUE  TO  GRP-UJRK-DU-1  OVOO. 

Receiving  field  is  printed. 

1N036 

ITIOVE  HIGH-VALUE  TO  UJRK-XN-00049. 

Receiving  field  is  printed. 

1N037 

ITIOVE  HIGH-VALUE  TO  AE-0002. 

Receiving  field  is  printed. 

1N038 

ITIOVE  LOUI-VALUE  TO  GRP-UJRK-DU-1  OVOO. 

Receiving  field  is  printed. 

1N039 

mo VE  LOUJ-UALUE  TO  lliRK-XN-00049. 

Receiving  field  is  printed. 

1N040 

mOUE  L0U1-U ALUE  TO  AE-0002. 

Receiving  field  is  printed. 

1N041 

ITIOVE  QUOTE  TO  GRP-UJRK-DU-1  OVOO. 

Receiving  field  is  printed. 

1N042 

ITIOVE  QUOTE  TO  UJRK-XN-00049. 

Receiving  field  is  printed. 

1N043 

ITIOVE  QUOTE  TO  AE-0002. 

Receiving  field  is  printed. 

1N044 

ITIOVE  "A1B2C3D4E5"  TO  GRP-UJRK-DU-1  OVOO. 

Receiving  field  is  printed. 

IN  04  5 

ITIOVE  "ABCDEFGHIOK"  TO  UJRK-AN-00026 . 

Receiving  field  is  printed. 

1N046 

ITIOVE  "1A2B3C4D5E6F"  TO  UJRK-XN-00049. 

Receiving  field  is  printed. 
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Test  ID 

Summary  of  Test 

Breakdown  of  Printed  Results 

1N047 

HOOVE  "1Z2Y3X4UJ5V"  TO  AE-0002. 

Receiving  field  is  printed. 

1N048 

HOOVE  "9876543210"  TO  UJRK-DU-1 OVOO. 

Receiving  field  is  printed. 

1N049 

HOOVE  "9876543210"  TO  NE-0002. 

Receiving  field  is  printed. 

1N050 

HOOVE  0123456789  TO  GRP-UJRK-DU-1  OVOO . 

Receiving  field  is  printed. 

1N051 

HOOVE  0918273645  TO  UJRK-XN-00049. 

Receiving  field  is  printed. 

1N052 

HOOVE  019823  TO  AE-0002. 

Receiving  field  is  printed. 

1N053 

HOOVE  9876543210  TO  UJRK-DU-1  OVOO. 

Receiving  field  is  printed. 

1N054 

HOOVE  00012345  TO  NE-0002. 

Receiving  field  is  printed. 

1N055 

HOOVE  000011.1223  TO  NE-0001  . 

Receiving  field  is  printed. 
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Test  ID 

Summary  of  Test 

Breakdown  of  Printed  Results 

1N061 

ADD  A1 80NES-DS-1 8V00  TO  UJRK-DS-1 8V00 . 

Arithmetic  result  is  printed. 

1N062 

ADD  A1 00NES-DS-1 0V00  A050NES-DS-05V00 

TO  UJRK-DS-10V00. 

Arithmetic  result  is  printed. 

1N063 

ADD  A020NES-DS-02V00  A1 00NES-DS-10V00 
A050NES-DS-05V00  TO  UJRK-DS-1  OVOO. 

Arithmetic  result  is  printed. 

1N064 

ADD  A06THREES-DS-03V03  A1 2THREES-DS-06V06 
GIVING  UJRK-DS-09V09. 

Arithmetic  result  is  printed. 

1N065 

ADD  A050NES-DS-05V00  A050NES-DS-00V05 
A12THREES-DS-06V06  A06THREES-DS-03V03 
GIVING  UJRK-DS-06V06 . 

Arithmetic  result  is  printed. 

1N066 

ADD  55554.5  TO  UJRK-DS-05V00  ROUNDED. 

Arithmetic  result  is  printed. 

1N067 

ADD  A050NES-DS-00V05  A 12THREES-DS-06V06 
A050NES-DS-00V05  GIVING  UJRK-DS-05V00 
ROUNDED 

• 

Arithmetic  result  is  printed. 

1N068 

ADD  -99  TO  UJRK-DS-02V00  ON  SIZE  ERROR 
lUOVE  "1"  TO  UIRK-XN-OOOOI. 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l  =  correct; 

0  =  incorrect). 

1N069 

ADD  A120NES-DS-12V00  ZERO  GIVING 

UJRK-DS-1  OVOO  ON  SIZE  ERROR  JYIOVE  "1" 

TO  UJRK-XN-OOOI. 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (1  =  correct; 

0  =  incorrect). 

1 N070 

ADD  33333  A06THREES-DS-03V03  A12THREES- 
DS-06V06  TO  UJRK-DS-05V00  ROUNDED  ON  SIZE 
ERROR. 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l  =  correct; 

0  =  incorrect). 

1N071 

ADD  A12THREES-DS-06V06  333333  A06THREES- 
DS-03V03  TO  UJRK-DS-06V06  ROUNDED  ON  SIZE 
ERROR  (HOVE  "0"  TO  UJRK-XN-00001 . 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l  =  correct; 

0  =  incorrect). 
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Test  ID 

Summary  of  Test 

Breakdown  of  Printed  Results 

1N072 

ADD  33333  A06THREES-DS-03V03  A12THREES- 
DS-06V06  GIVING  UJRK-DS-05V00  ROUNDED 

ON  SIZE  ERROR  MOVE  "1"  TO  UJRK-XN-00001  . 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l  =  correct; 

0  =  incorrect). 

1N073 

ADD  A12THREES-DS-06V06  333333  A06THREES- 
-DS-03V03  GIVING  UJRK-DS-06V06  ROUNDED  ON 
SIZE  ERROR. 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l  =  correct; 

0  =  incorrect). 

1N074 

ADD  A99-DS-02V00  A030NES-DS-02V01 
A060NES-DS-03V03  A08TUJ0S-DS-02V06 
-1.1111111  +.11111111  AOI 0NE-DS-P0801 
GIVING  UIRK-DS-03V1  0. 

Arithmetic  result  is  printed. 

1N075 

ADD  AOI 0NE-DS-P0801  +.11111111 
-1.1111111  A08TID0S-DS-02V06  A060NES-DS 
03V03  A030NES-DS-02V01  A99-DS-02V00 

GIVING  UJRK-DS-03V1 0. 

Arithmetic  result  is  printed. 

1N076 

ADD  A08TUJ0S-DS-02V06  A99-DS-02V00 
-1.1111111  A030NES-DS-02V01  A010NE-DS 

P0801  +.11111111  A060NES-DS-03V03 

GIVING  UJRK-DS-03V10. 

Arithmetic  result  is  printed. 

1N077 

ADD  A180NES-DS-18V00  TO  UJRK-CS-1 8V00. 

Arithmetic  result  is  printed. 

1IM078 

ADD  A 18CNES-CS-1 8V00  TO  UJRK-D5-18V00 . 

Arithmetic  result  is  printed. 

1IM079 

ADD  A99-CS-02V00  TO  UJRK-CS-02V02. 

Arithmetic  result  is  printed. 

1IM080 

ADD  A99-CS-02V00  TO  UJRK-CS-02V02  ON 

SIZE  ERROR  MOVE  "1"  TO  UJRK-XN-00001. 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l  =  correct; 

0  =  incorrect). 
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Test  ID 

Summary  of  Test 

Breakdown  of  Printed  Results 

1N090 

SUBTRACT  A180NES-DS-18V00  FROIYI  UJRK-DS- 
18V00. 

Arithmetic  result  is  printed. 

1N091 

SUBTRACT  A050NES-DS-05V00  A050NES-DS- 
00V05  A060NES-DS-03V03  FROIYI  UIRK-DS-06V06 . 

Arithmetic  result  is  printed. 

1N092 

SUBTRACT  A06THREES-DS-03V03  FROIYI 
A12THREES-DS-06V06  GIVING  UJRK-DS-06V06 . 

Arithmetic  result  is  printed. 

1N093 

SUBTRACT  A050NES-DS-05V00  A050NES-DS-00V05 
A12THREES-DS-06V06  A06THREES-DS-03V03 

FROM  ZERO  GIVING  UIRK-DS-06V06 . 

Arithmetic  result  is  printed. 

1N094 

SUBTRACT  A99-DS-02V00  FROIYI  UJRK-DS-0201P 
ROUNDED. 

Arithmetic  result  is  printed. 

1N095 

SUBTRACT  A050NES-DS-05V00  -11111  AZERO- 
DS-05V05  FROM  UJRK-DS-06V06  GIVING 
UJRK-DS-06V00  ROUNDED. 

Arithmetic  result  is  printed. 

1N096 

SUBTRACT  A99-DS-02V00  FROM  UJRK-DS-02V00 

ON  SIZE  ERROR  MOVE  "1"  TO  UJRK-XN-OOOOI . 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (1  -  correct, 

0  =  incorrect). 

1N097 

SUBTRACT  A120NES-DS-12V00  FROM  ZERO 

GIVING  UJRK-DS-IOVOO  ON  SIZE  ERROR  MOVE 
"1"  TO  UJRK-XN-OOOOI . 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (1  =  correct; 

0  =  incorrect). 

1N098 

SUBTRACT  33333  A06THREES-DS-03V03 
A12THREES-DS-06V06  FROM  UJRK-DS-05V00 
ROUNDED  ON  SIZE  ERROR  MOVE  "1"  TO  UJRK- 
XN-OOOOI  . 

Arithmetic  result  is  prinfed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (1  =  correct; 

0  =  incorrect). 

1N099 

SUBTRACT  A12THREES-DS-06V06  333333 
A06THREES-DS-03V03  FROM  UJRK-DS-06V06 
ROUNDED  ON  SIZE  ERROR  MOVE  "0"  TO 
UJRK-XN-OOOOI. 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (1  =  correct; 

0  =  incorrect). 
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Test  ID 

Summary  of  Test 

Breakdown  of  Printed  Results 

1  N'lOO 

SUBTRACT  33333  A06THREES-DS-03V03 
A12THREES-DS-06V06  F R 0IY1  -1000000  IDRK-DS- 
C5V00  ROUNDED  ON  SIZE  ERROR  IHOVE  "1"  TO 
UJRK-XN-00001 . 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (1  =  correct; 

0  =  incorrect). 

INI  01 

SU8TR ACT  A12THREES-DS-06V06  333333 
A06THREES-DS-03V03  -.0000009  FROIH 
-.1000000  GIVING  UJRK-DS-06V06  ROUNDED 

ON  SIZE  ERROR  (HOVE  "0"  TO  UIRK-XN-00001 . 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (1  =  correct; 

0  =  incorrect). 

1N1U2 

SUBTRACT  A99-DS-02V00  A03NES-DS-02V01 
A060NES-DS-03V03  A08TUJ0S-DS-02V06 
-1.1111111  +.11111111  A01 0NE-DS-P0801 

FROIH  -1000.000000  GIVING  UJRK-DS-03V10. 

Arithmetic  result  is  printed. 

INI  03 

SUBTRACT  A01 0NE-DS-P0801  +.11111111 
-1.1111111  A08TUJ0S-DS-02V06  A060NES-DS 
03V03  A030NES-DS-02V01  A99-DS-02V00  FROIH 
-1000.000000  GIVING  UJRK-DS-03V10. 

Arithmetic  result  is  printed. 

1N104 

SUBTRACT  A08TUJ0S-DS-02V06  A99-DS-02V00 
-1.1111111  A030NES-DS-02V01  A010NE-DS- 
P0801  +.11111111  A060NES-DS-03V03  FROIH 
-1000.000000  GIVING  UJRK-DS-03V 1 0 . 

Arithmetic  result  is  printed. 

1N105 

SUBTRACT  A180NES-DS-18V00  FROIH  UJRK-CS- 
18V00. 

Arithmetic  result  is  printed. 

INI  06 

SUBTRACT  A180NES-CS-18V00  FROIH  UJRK-DS- 
18V00. 

Arithmetic  result  is  printed. 

INI  07 

SU8TR ACT  A99-CS-02V00  FROIH  UJRK-CS-02V02 . 

Arithmetic  result  is  printed. 

1N108 

SUBTRACT  -99  FROIH  UJRK-CS-02V02  ON  SIZE 
ERROR  (HOVE  "1"  TO  UJRK-XN-00001. 

Arithmetic  result  is  printed;  j 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l  =  correct; 

0  =  incorrect). 

i 

- 1 
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Test  ID 

Summary  of  Test 

Breakdown  of  Printed  Results 

1N120 

MULTIPLY  A06THREES-DS-03V03  BY  UJRK-DS- 
18V00. 

Arithmetic  result  is  printed. 

INI  21 

MULTIPLY  0.4  BY  UIRK-DS-06V06  ROUNDED. 

Arithmetic  result  is  printed. 

1N122 

MULTIPLY  A12THREES-DS-06V06  BY  UJRK-DS- 
10V00  ON  SIZE  ERROR  WOVE  "1"  TO  UJRK- 
XN-00001. 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l  =  correct; 

0  =  incorrect). 

1N123 

MULTIPLY  AZER0-DS-05V05  ON  SIZE  ERROR 
MOVE  "0"  TO  UIRK-XN-00001. 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l  =  correct; 

0  =  incorrect). 

1N124 

MULTIPLY  99.5  BY  UJRK-DS-02V00  ROUNDED 

ON  SIZE  ERROR  MOVE  "1"  TO  UJRK-XN-00001  . 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l  =  correct; 

0  =  incorrect). 

1N125 

MULTIPLY  99.4  BY  UJRK-DS-02V00  ROUNDED 

ON  SIZE  ERROR  MOVE  "0"  TO  UJRK-XN-00001. 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l  =  correct; 

0  =  incorrect). 

1N126 

MULTIPLY  A06THREES-DS-03V03  BY 
A12THREES-DS-06V06  GIVING  UJRK-DS-09V09. 

Arithmetic  result  is  printed. 

INI  27 

MULTIPLY  A06THREES-DS-03V03  BY 
A06THREES-DS-03V03  GIVING  UJRK-DS-1 OVOO 
ROUNDED. 

Arithmetic  result  is  printed. 

t 

! 

* 

1N128 

MULTIPLY  A050NES-DS-1 OVOO  ON  SIZE  ERROR 
MOVE  "1"  TO  UJRK-XN-00001. 

i 

Arithmetic  result  is  printed;? 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l  =  correct;  \ 

0  =  incorrect). 



1N129 

MULTIPLY  A01 0NES-DS-P0801  BY  A120NES- 
DS-12V00  GIVING  UJRK-DS-10V00  ON  SIZE 
ERROR  MOVE  "0"  TO  UJRK-XN-00001. 

Arithmetic  result  is  printed^ 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (1  =  correct; 

0  =  incorrect). 

- - ^ 
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Test  ID  i 

! 

! 

Summary  of  Test 

Breakdown  of  Printed  Results 

■  ■  ~-"i 

1 1N)  1 3  0 

1 

1 

.  ..  „J 

MULTIPLY  1.5  BY  A100NES-DS-10V00  GIVING 
lDRK-DS-1 0V00  ROUNDED  ON  SIZE  ERROR 

MOVE  ”1"  TO  IDRK-XN-OOOOI  . 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l  =  correct; 

0  =  incorrect). 

1N131 

l 

1 

MULTIPLY  A010NE-DS-P0801  BY  A180NES- 
DS-18V00  GIVING  UIRK-DS-09V08  ROUNDED 

ON  SIZE  ERROR  MOVE  "0"  TO  UIRK-XN- 
00001 . 

1  -  -  .  J 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l  =  correct; 

0  =  incorrect ) . 

INI  32 

. 

MULTIPLY  A01 0NE-CS-00V01  BY  IDRK-DS- 
0201P. 

Arithmetic  results  are  printed. 

1N133 

MULTIPLY  A01 0NE-DS-P0801  BY  UJRK-CS- 
18V00. 

Arithmetic  results  are  printed. 

INI  34 

MULTIPLY  A99-CS-02V00  BY  A010NE-CS- 
00V01  GIVING  UJRK-CS-02V02. 

I 

Arithmetic  results  are  printed. 

1 _ _ _ i 
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Summary  of  Test 

Breakdown  of  Printed  Resul’ s 

1 

INI  5  1 

DIVIDE  A99-DS-02V00  INTO  UJRK-DS-18V00. 

Arithmetic  result  is  printed. 

INI  51 

DIVIDE  4  INTO  UJRK-DS-1 2V00  ROUNDED. 

.....  .  _  | 

Arithmetic  result  is  printed. 

1N152 

DIVIDE  0.1  INTO  UJRK-DS-01  V00  ON  SIZE 

ERROR  ITIOVE  "1"  TO  UJRK-XN-00001  . 

Arithmetic  result  is  printed; 

!  the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l  =  correct; 

0  =  incorrect). 

INI  53 

DIVIDE  A01 0NE-DS-P0801  INTO  UJRK-DS-09V00 

ON  SIZE  ERROR  ITIOVE  "0"  TO  UJRK-XN-00001  . 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l  =  correct; 

0  =  incorrect). 

INI  54 

DIVIDE  AZER0-DS-05V05  INTO  UJRK-DS01 VOO 
ROUNDED  ON  SIZE  ERROR  ITIOVE  "1"  TO  UJRK- 
XN-00001. 

! 

i 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (1  =  correct; 

0  =  incorrect). 

INI  55 

DIVIDE  A0NES-DS-09V09  INTO  UJRK-DS-09V09 
ROUNDED  ON  SIZE  ERROR  ITIOVE  "0"  TO  UJRK-XN 

j  00001. 

1 

. .  ■  j 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (1  =  correct; 

0  =  incorrect). 

_  i 

INI  56 

DIVIDE  -10.9  INTO  A02TUJ0S-DS-02V00 

GIVING  UJRK-DS-01  VOO. 

Arithmetic  result  is  printed. 

i 

.   . . . 

1N157 

DIVIDE  UJRK-DS-03V1 0  INTO  A01 0NE-DS-P0801 
GIVING  UJRK-DS-1  BVOO  ROUNDED. 

Arithmetic  result  is  printed. 

1N158 

DIVIDE  AZER0-DS-05V05  INTO  A99-DS-02V00 
GIVING  UJRK-DS-18V00  ON  SIZE  ERROR  ITIOVE 
"1"  TO  UJRK-XN-00001. 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (1  =  correct; 

0  =  incorrect). 

1 N 159 

DIVIDE  A0NES-DS-09V09  INTO  UJRK-DS-09V09 
GIVING  UJRK-DS-09V09  ON  SIZE  ERROR  ITIOVE 
"0"  TO  UJRK-XN-00001. 

Arithmetic  result  is  printed, 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l  =  correct; 

0  =  incorrect). 
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Test  ID 

Summary  of  Tost 

Breakdouin  of  Printed  Results 

INI  CiU 

DIVIDE  IURK-DS-09V09  INTO  A05DNES-DS-00VD5 
GIVING  UJRK-DS-U2U1P  ROUNDED  ON  SIZE  ERROR 
IKIOVE  "1"  TO  UJRK-XN-00001. 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (1  =  correct; 

0  -  incorrect). 

1N161 

DIVIDE  A02TUJ0S-DS-02V00  INTO  A02TU0S-DS- 
03V02  GIVING  UJRK-DS-OIVOO  ROUNDED  ON  SIZE 
ERROR  IKIOVE  "0"  TO  URK-XN-00001. 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (1  =  correct; 

0  =  incorrect). 

1N162 

DIVIDE  A02TUJ0S-DS-02V00  BY  -10.9 

GIVING  UJRK-DS-OIVOO . 

Arithmetic  result  is  printed. 

1M163 

DIVIDE  AD10NE-DS-P0801  BY  UJRK-DS-  03V10 
GIVING  UJRK-DS-18V00  ROUNDED. 

Arithmetic  result  is  printed. 

1N164 

DIVIDE  A99-DS-02V0D  BY  AZER0-DS-05V05 
GIVING  UJRK-DS-18V00  ON  SIZE  ERROR 

IKIOVE  "1"  TO  UJRK-XN-00001. 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l  correct; 

0  =  incorrect). 

1N165 

DIVIDE  UJRK-DS-09V09  BY  A0NES-DS-09V09 
GIVING  UJRK-DS-09VC9  ON  SIZE  ERROR 

IKIOVE  "0"  TO  UJRK-XN-00001. 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (1  =  correct; 

0  =  incorrect). 

1N166 

DIVIDE  A050NES-DS-00V05  BY  UJRK-DS-09V09 
GIVING  UJRK-DS-0201P  ROUNDED  ON  SIZE  ERROR 
IKIOVE  "1"  TO  UJRK-XN-00001. 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l  -  correct; 

0  =  incorrect). 

1 N 1 6  7 

DIVIDE  A02TUJQS-DS-03V02  BY  A02TTU0S-DS 
02V00  GIVING  UJRK-DS-OIVOO  ROUNDED 

ON  SIZE  ERROR  IKIOVE  "0"  TO  UJRK-XN-00001. 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l  =  correct; 

0  -  incorrect). 

1N168 

DIVIDE  A99- DS-02V00  INTO  UJRK-DS-02V00 . 

Arithmetic  result  is  printed. 

1IM1 69 

DIVIDE  A99U-DS-02U1P  INTO  UJRK-CS-02V02 . 

Arithmetic  result  is  printed. 

IN17D 

DIVIDE  AOIONE-CS-HOVOI  INTO  A99-CS-02V00 
GIVING  UJRK-D5-05V00  . 

Arithmetic  result  is  printed. 

INI  71 

DIVIDE  A99-CS-02V00  BY  A010NE-CS-00V01 
GIVING  UJRK-DS-05V00 . 

Arithmetic  result  is  printed. 
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Test  ID 

Summary  of  Test 

Breakdown  of  Printed  Results 

1N20J 

PERFORM  paragraph-name . 

PERFORM  section-name . 

Execution  sequence  indicators 
are  printed. 

1N201 

PERFORM  paragraph-name  inteqer  TIMES- 
PERFORM  section-name  data-name  TIMES. 

Execution  sequence  indicators 
are  printed. 

1N2U2 

PERFORM  paragraph-name  THRU  paragraph- 
name  . 

PERFORM  section-name  THRU  section-name. 
PERFORM  paragraph-name  THRU  section- 
name  . 

Execution  sequence  indicators 
are  printed. 

1N203 

PERFORM  paragraph-name  THRU  paragraph- 
name  integer  TIMES. 

PERFORM  section-name  THRU  section-name 
integer  TIMES. 

PERFORM  section-name  THRU  paragraph- 
name  integer  TIMES. 

PERFORM  paragraph-name  THRU  section- 
name  integer  TIMES. 

Execution  sequence  indicators 
are  printed. 

1N210 

Tests  nested  PERFORM  statements. 

Execution  sequence  indicators 
are  printed. 

1N215 

Tests  the  use  of  EXIT. 

Execution  sequence  indicators 
are  printed. 
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Test  ID 

Summary  of  Test 

Breakdown  of  Printed  Results 

1N230 

EXAMINE  NDAT A-DS-09V09  TALLYING 

UNTIL  FIRST  9. 

The  value  of  TALLY  is  printed. 

1N231 

EXAMINE  XDAT A-XN-G0018  TALLYING  ALL  "0". 

The  value  of  TALLY  is  printed. 

1N232 

EXAMINE  XDATA-XN-C0018  TALLYING 

LEADING  SPACE. 

The  value  of  TALLY  is  printed. 

1N237 

EXAMINE  1DRK-DS-091/09  TALLYING  UNTIL 

FIRST  ZERO  REPLACING  BY  9. 

The  value  of  TALLY  and  the 
examined  item  are  printed. 

1N238 

EXAMINE  UJRK-XN-00018  TALLYING  ALL  ZERO 
REPLACING  BY  SPACE. 

The  value  of  TALLY  and  the 
examined  item  are  printed. 

1N239 

EXAMINE  UJRK-XN-00018  TALLYING  LEADING 
”0"  REPLACING  BY  "9". 

The  value  of  TALLY  and  the 
examined  item  are  printed. 

1N242 

EXAMINE  UJRK-DS-09V09  REPLACING  ALL  0 

BY  9. 

The  value  of  the  examined 
item  is  printed. 

IN  24  3 

EXAMINE  UJRK-XN-00018  REPLACING  LEADING 
"0"  BY  "Z". 

The  value  of  the  examined 
item  is  printed. 

1N244 

EXAMINE  UJRK-XN-00018  REPLACING  UNTIL 

SPACE  BY  ZERO. 

The  value  of  the  examined 
item  is  printed. 

1N245 

EXAMINE  UJRK-DS-09V09  REPLACING  FIRST 

8  BY  ZERO. 

The  value  of  the  examined 
item  is  printed. 
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Summary  of  Test 

Breakdown  of  Printed  Results 

1N250 

IF  AZER0-DS-05V05  IS  EQUAL  TO  ZERO 

MOVE  "1"  TO'  SUP-UJK-8  (l). 

The  result  of  the  comparison 
is  printed. 

1N251 

IF  SPACE  IS  EQUAL  TO  SUP-UJK-A 

MOVE  "0"  TO  SUP-UJK-B  (1). 

The  result  of  the  comparison 
is  printed. 

1N252 

IF  A180NES-DS-1BV00  IS  EQUAL  TO  ONES-XN- 
00018  MOVE  "1"  TO  SUP-UJK-B  (l). 

The  result  of  the  comparison 
is  printed. 

1N253 

IF  TUJ0S-XN-00002  IS  EQUAL  TO  A99-DS- 
02V00  MOVE  "0"  TO  SUP-UJK-B  (l). 

The  result  of  the  comparison 
is  printed. 

1N254 

IF  A99-DS-02V00  IS  LESS  THAN  A180NES- 
DS-09V09  MOVE  "1"  TO  SUP-UJK-B  (l)  ELSE 
MOVE  "0"  TO  SUP-UJK-B  (2). 

The  result  of  the  comparison 
is  printed. 

1N255 

IF  "11"  IS  LESS  THAN  0NES-XN-00002 

MOVE  "0"  TP  SUP-UJK-B  (l) 

ELSE  MOVE  "1"  TO  SUP-UJK-B  (2). 

The  result  of  the  comparison 
is  printed. 

1N256 

IF  A02TUJ0S-DU-02V00  IS  LESS  THAN  ONES- 
XN-00002  MOVE  "1"  TO  SUP-UJK-B  (l) 

ELSE  MOVE  "0"  TO  SUP-UJK-B  (2). 

The  result  of  the  comparison 
is  printed. 

1N257 

IF  TUJ0S-XN-00002  IS  LESS  THAN  A02TUJ0S- 
DU-02V00  MOVE  "0"  TO  SUP-UJK-B  (l) 

ELSE  MOVE  "1"  TO  SUP-UJK-B  (2). 

The  result  of  the  comparison 
is  printed. 

1N25B 

IF  A99-DS-02V00  IS  GREATER  THAN  88.9 

NEXT  SENTENCE  ELSE  MOVE  "0"  TO  SUP-UJK-B 
(1). 

The  result  of  the  comparison 
is  printed. 

1N259 

IF  0NES-XN-00002  IS  GREATER  THAN  TUJOS- 
XN-00002  NEXT  SENTENCE  ELSE  MOVE  "1"  TO 
SUP-UJK-B  (1)  GO  TO  TEST-1  NUC-259- A. 

The  result  of  the  comparison 
is  printed. 

1N260 

IF  A02TUJ0S-DU-02V00  IS  GREATER  THAN  ONES- 
XN-00002  NEXT  SENTENCE  ELSE  MOVE  "0"  TO 
SUP-UJK-B  (1). 

The  result  of  the  comparison 
is  printed. 

1N261 

IF  TUJ0S-XN-00002  IS  GREATER  THAN  AOZHUOS- 
DU-02V00  NEXT  SENTENCE  ELSE  MOVE  "1"  TO 
SUP-UJK-B  (1)  GO  TO  TEST-INUC-261-A. 

The  result  of  the  comparison 
is  printed. 

1N262 

IF  ZERO  IS  NOT  EQUAL  TO  SUP-UJK-A 

MOVE  "1"  TO  SUP-UJK-B  (l)  GO  TO  TEST- 
1NUC-262-A  ELSE  NEXT  SENTENCE. 

The  result  of  the  comparison 
is  printed. 
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Summary  of  Test 

Breakdown  of  Printed  Results 

1N263 

IF  A02TUJ0S-DU-02V00  IS  NOT  EQUAL  TO  A02TVJJ0: 
DS-03V02  MOVE  "0"  TO  SUP-UIK-B  (l)  GO  TO 
TEST-1NUC-263-A  ELSE  NEXT  SENTENCE. 

S-  The  result  of  the  comparison 
is  printed. 

1N264 

IF  TUJ0S-XN-00002  IS  NOT  LESS  THAN  ONES- 
XN-00002  MOVE  "1"  TO  SUP-UIK-B  (l)  GO  TO 
TEST-1 NUC-264- A  ELSE  NEXT  SENTENCE. 

The  result  of  the  comparison 
is  printed. 

1N265 

IF  0.0000000001  IS  NOT  LESS  THAN  A010NES- 
DS-P0801  MOVE  "0"  TO  SUP-UIK-B  (l)  GO  TO  TE 
1NUC-265-A  ELSE  NEXT  SENTENCE. 

The  result  of  the  comparison 

ST-  is  printed. 

iN266 

IF  0NES-XN-000U2  IS  NOT  GREATER  THAN  T\UOS- 
XN-00002  MOVE  "1"  TO  SUP-UIK-B  (l)  GO  TO 
TEST-1NUC-266-A  ELSE  NEXT  SENTENCE. 

The  result  of  the  comparison 
is  printed. 

1N2G7 

IF  A990-DS-0201P  IS  NOT  GREATER  THAN 
A99-DS-02V00M0VE  "0"  TO  SUP-UJK-B  (l) 

GO  TO  TEST-1NUC-2G7-A  ELSE  NEXT  SENTENCE. 

The  result  of  the  comparison 
is  printed. 

1N270 

IF  0NES-XN-0001B  IS  NUMERIC  MOVE  "1"  TO 
SUP-UJK-B  (1). 

The  result  of  the  test  is 
printed. 

1N271 

IF  A02TUJ0S-DS-03V02  IS  NUMERIC  MOVE  "1" 

TO  SUP-UIK-B  (1). 

The  result  of  the  test  is 
printed. 

1N272 

IF  XDAT A-XN-00018  IS  NUMERIC  MOVE  "0" 

TO  SUP-UJK-B  1(1)  GO  TO  TEST-1NUC-272-A . 

The  result  of  the  test  is 
printed. 

1N273 

IF  XDATA-DS-18V00-S  IS  NUMERIC  MOVE  "0" 

TO  SUP-UIK-B  (1)  GO  TO  TEST-1NUC-273-A. 

The  result  of  the  test  is 
printed. 

1N274 

IF  SUP-UJK-A  IS  NOT  NUMERIC  MOVE  "1"  TO 
SUP-UJK-B  (1)  GO  TO  TEST-1NUC-274-A. 

The  result  of  the  test  is 
printed. 

1N275 

IF  XDAT A-DS-18V00-S  IS  NOT  NUMERIC  MOVE 
"1"  TO  SUP-UJK-B  (1). 

The  result  of  the  test  is 
printed . 

1N276 

IF  SUP-UJK-A  IS  NOT  NUMERIC  MOVE  "0"  TO 
SUP-UJK-B  (1)  GO  TO  TEST-1NUC-277-A. 

The  result  of  the  test  is 
printed. 
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1N277 

IF  A990-DS-0201P  IS  NOT  NUMERIC  MOVE 
"0"  TO  SUP-UJK-B  (1)  GO  TO  TEST-lNUC-277- 

A. 

The  result  of  the  test  is 
printed . 

1N278 

IF  YADATA-XN-00010  IS  ALPHABETIC  MOVE 
"1"  TO  SUP-UJK-B  (1). 

The  result  of  the  test  is 
printed. 

1N279 

IF  SUP-UJK-A  IS  ALPHABETIC  MOVE  "X"  TO 
SUP-UJK-B  (1)  GO  TO  TEST-1NUC-279-A. 

The  result  of  the  test  is 
printed . 

1N280 

IF  XDATA-XN-00018  IS  NOT  ALPHABETIC  MOVE 
"1"  TO  SUP-UJK-B  (1). 

The  result  of  the  test  is 
printed. 

1N281 

IF  Y ADATA-XN-00010  IS  NOT  ALPHABETIC 

MOVE  "0"  TO  SUP-UJK-B  (l)  GO  TO  TEST- 
1NUC-281-A. 

The  result  of  the  test  is 
printed. 

1N282 

IF  IFNUM-DU-01V00  IS  NUMERIC  MOVE  "0" 

TO  SUP-UJK-B  (1)  GO  TO  TEST-1NUC-282-A. 

The  result  of  the  test  is 
printed. 
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Summary  of  Test 

Breakdown  of  Printed  Results 

1 N300 

Tests  format  1  of  the  GO  TO 
s  tatemen t . 

Execution  sequence  indicators 
are  printed. 

1N302 

Tests  format  2  of  the  GO  TO  statement. 

Execution  sequence  indicators 
are  printed. 

1N3C2 

Tests  ALTER/GO  TO  combination. 

Execution  sequence  indicators 
are  printed. 

1N304 

Tests  the  DISPLAY  statement. 

No  printed  results  except 
the  output  of  the  statement 
itself . 

1N305 

Tests  the  ACCEPT  statement. 

The  data  that  was  read  is 
printed. 

1N307 

Tests  the  NOTE  statement  and  NOTE 
paragraph. 

Execution  sequence  indicators 
are  printed. 

1N310 

Tests  the  use  of  switch-s tatus-names 
in  IF  statements. 

Execution  sequence  indicators 
are  printed. 

1N311 

Tests  non-floating  insertion  characters. 

Receiving  fields  are  printed. 

1N312 

Tests  the  use  of  floating  insertion  and 
replacement  characters. 

Receiving  fields  are  printed. 

1N313  A) 

ej 

Tests  the  use  of  lev/el  numbers  01-10 
REDEFINES,  SYNCHRONIZED,  JUSTIFIED, 
BLANK,  USAGE,  and  mixed  PICTURE  of 

A,  X,  9. 

Receiving  fields  are  printed. 
Because  the  operation  of  the 

SYNC  clause  makes  the  size  of 
the  result  indeterminate  no 
expected  result  is  printed. 

1N314 

Tests  the  CURRENCY  SIGN  clause. 

Receiving  fields  are  printed. 

1N315 

Tests  the  DECIMAL  POINT  IS  COMMA  clause. 

Receiving  fields  are  printed. 

1N316  A> 

_ 1 

Tests  the  Data  Division  abbreviations: 
SYNC,  PIC,  COMP,  JUST. 

Receiving  fields  are  printed. 
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1N317 

Tests  30  character  data-name  and 
procedure-name . 

Correctness  indicator  is 
printed . 

1N318 

Tests  120  character  literal. 

Correctness  indicator  is 
printed. 
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2N001 

ADD  AZER0-DS-05V05  0.5  TO  UJRK-DS-01V00 
UIRK-DS-05V00  ROUNDED  UJRK-DS-06V06 . 

Arithmetic  result  is  printed. 

2N002 

ADD  A050NES-DS-05V00  A99-DS-02V00  A1B0NES- 
DS-09V09  GIVING  UJRK-DS-09V09  ON  SIZE 

ERROR  IT10VE  "0"  TO  UJRK-XN-00001. 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (1  =  correct; 

0  =  incorrect). 

2NC03 

ADD  AZER0-DS-05V05  999  TO  UJRK-DS-03V10 
UJRK-DS-0201P  ROUNDED  UIRK-DS-03V00  ON  SIZE 
ERROR  IT10VE  "1"  TO  UJRK-XN-00001. 

Arithmetic  result  is  printed; 

,  the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l  =  correct; 

0  =  incorrect). 

2N004 

ADD  CORRESPONDING  GRP-FOR-ADD-CORR-1 

TO  GRP-FOR-ADD-CORR-R. 

Arithmetic  result  is  printed. 

2N005 

ADD  CORRESPONDING  GRP-ADD-SUB-CORR 

TO  GRP-FOR-ADD-CORR-R  ROUNDED. 

Arithmetic  result  is  printed. 

2N006 

ADD  CORRESPONDING  GRP -SUBTRACT-CORR-3 

TO  GRP-FOR-ADD-CORR-R  ON  SIZE  ERROR 

MOVE  "1"  TO  UJRK-XN-00001. 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (1  =  correct; 

0  =  incorrect). 

2N007 

SUBTRACT  AZER0-DS-05  -99.9  FROM  UJRK-DS- 
02U00  UJRK-DS-1BV00  ROUNDED  UJRK-DS-09V09 . 

Arithmetic  result  is  printed. 

2N008 

SUBTRACT  AZER0-DS-05V05  -99.9  FROITl  UJRK- 
DS-02V00  UJRK-DS-18V00  UJRK-DS-09V09  ON 

SIZE  ERROR  IT10VE  "0"  TO  UJRK-XN-00001. 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (1  =  correct; 

0  =  incorrect). 

2N009 

SUBTRACT  AZER0-DS-05V05  -999  FROITl  UJRK- 
DS-03V10  UJRK-DS-0201P  ROUNDED  UJRK-DS- 
03V00  ON  SIZE  ERROR  IT10VE"1"  TO  UJRK-XN- 
00001. 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked  • 
correctly  (l  =  correct; 

0  =  incorrect). 
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2N010 

SUBTRACT  CORRESPONDING  GRP-FOR-ADD- 
CORR-1  FROM  GRP-FOR-ADD-CORR-R. 

Arithmetic  result  is  printed. 

2N011 

SUBTRACT  CORRESPONDING  GRP-ADD-SUB-CORR 
FROM  GRP-FOR-ADD-CORR-R  ROUNDED. 

Arithmetic  result  is  printed. 

2N013 

MOVE  CORRESPONDING  GRP-IY10VE-C0RR-1  TO 
GRP-MOVE-CORR-R. 

Arithmetic  result  is  printed. 

2N015 

SUBTRACT  CORRESPONDING  GRP-SUBTR ACT- 
CORR-3  FROM  GRP-FOR-ADD-CORR-R  ON  SIZE 

ERROR  MOVE  "1"  TO  UJRK-XN-00001  . 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (1  =  correct; 

0  =  incorrect). 
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Summary  of  Test 

■  i; 

Breakdown  of  Printed  Results 

2N016 

MOVE  CORRESPONDING  GRP-T0-M0VE-C0RR-1 

TO  GRP-TO-MOVE-CORR-R. 

Receiving  fields  are  printed. 

t 

i 

2N017 

PERFORM  TEST-2NUC-017-A  UNTIL  TEST- 
2NUC-C0ND-y9. 

Execution  sequence  indicators 
are  printed. 

2N018 

PERFORM  TEST-2NUC-018-A  VARYING  LJRK-DS- 
02V00  FROM  1  BY  1  UNTIL  TEST-2NUC-C0ND-99. 

Execution  sequence  indicators 
are  printed. 

2N019 

PERFORM  TEST2NUC-018-A  VARYING  UJRK-DS- 
02V00  FROM  A02HD0S-DS-02V00  BY  A02HU0S- 
DS-02V00  UNTIL  (UJRK-DS-02V00  +  12) 

=  100. 

i 

Execution  sequence  indicators  | 
are  printed. 

i 

2NG20 

Tests  PERFORM  ...  VARYING  to  thre.  levels. 

Execution  sequence  indicators 
and  final  values  of  identifiers 
are  printed. 

2N022 

Tests  PERFORM  ...  VARYING  to  three 
levels;  uses  index-names. 

Execution  sequence  indicators 
and  final  values  of 
identifiers  are  printed. 

2NU23 

Tests  ALTER  with  the  series  option. 

Execution  sequence  indicators 
are  printed. 
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Summary  of  Test 

Breakdown  of  Printed  Results 

2N024 

CDIY1PUTE  UIRK-DS-02V00  =  -9. 

Arithmetic  result  is  printed. 

2N025 

C0IY1PUTE  UIRK-DS-02V00  =  A99-DS-02V00. 

Arithmetic  result  is  printed. 

2N026 

CDIY1PUTE  UIRK-DS-18V00  =  A180NES-DS- 
18V00  +  A180NES-DS-18V00. 

Arithmetic  result  is  printed. 

2N027 

COMPUTE  UIRK-DS-18V00  =  A18TUJ0S-DS- 
18U00  -  A180NES-DS-18V00. 

Arithmetic  result  is  printed. 

2NU28 

COMPUTE  TALLY  =  3  *  A02TUJ0S-DU-02V00. 

Arithmetic  result  is  printed. 

2N029 

COMPUTE  UIRK-DS-05V00  =  A02TU0S-DU- 
02V00  /  A02TUJ0S-DS-03V02 . 

’  Arithmetic  result  is  printed. 

2N030 

COMPUTE  UJRK-DS-05V00  =  3  **  ATUJO-DS- 
OlVOO. 

Arithmetic  result  is  printed. 

2N031 

COMPUTE  UJRK-DS-02V00  ROUNDED  =  A99- 
DS-02V00  +  AZER0-DS-05V05  -  2.5. 

Arithmetic  result  is  printed. 

2N032 

«  r 

COMPUTE  UIRK-DS-02V00  =  A99-DS- 
02V00  +  AZER0-DS-05V05  ON  SIZE  ERROR 
MOVE  "0"  TO  UIRK-XN-00001 . 

Arithmetic  result  is  printed; 
the  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l  -  correct; 

0  =  incorrect). 

2N033 

Test  REMAINDER  option  of  DIVIDE. 

Arithmetic  result  is  printed. 

2N034 

COMPUTE  UJRK-DS-0201 P  ROUNDED  =  A050NES 
DS-05V00  /  5  ON  SIZE  ERROR  MOVE  "1" 

TO  UIRK-XN-0001  . 

Arithmetic  result  is  printed. 

The  last  digit  indicates 
whether  SIZE  ERROR  worked 
correctly  (l=correct ; 

O=incorrect ) . 
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Summary  of  Test 

Breakdown  of  Printed  Results 

2N035  Al 

BJ 

Using  COIYIPUTE 9  tBSts  a  particular 
arithmetic  expression  both  with 
and  without  parentheses. 

Both  results  are  printed. 

2N036 

Tests  a  particular  arithmetic 
expression  both  with  and  without 
parentheses  in  If  statements* 

Results  of  comparison 
are  printed. 

2N037 

Tests  ADD  with  ON  SIZE  ERROR 
option  in  the  true  and  false  of 
an  IF  statement. 

Resulte  of  arithmetic  and 
comparisons  are  printed. 

2N038 

Tests  IF  statements  nested  on 
true  and  false  paths  of  an  IF 
statement . 

Results  of  comparisons  are 
printed . 

2N039 

Tests  an  IF  statement  containing 
a  compound  condition  with  one  OR. 

Results  of  the  comparisons 
are  printed. 

2N040 

Tests  an  IF  statement  containing 
a  compound  condition  with  one  AND. 

Resulta  of  the  comparisons 
are  printed. 

2NG41 

1 

! 

Tests  an  IF  statement  containing  a 
compound  condition  with  mixed  ANDs 
and  ORs. 

|  ...  ..  ......  .. 

Results  of  the  comparisons 
are  printed. 

2N042 

i 

i 

■ -  ,-j 

i 

Tests  an  IF  statement  containing  a 
compound  condition  with  mixed  ANDe, 
ORs,  and  NOTs. 

.  ... 

Results  of  the  comparisons  are 
printed . 

i 

2N043 

i 

Tests  IF  statements  uaing  =  ^ 

ae  relational  operators. 

Reeults  of  the  comparisone 
are  printed. 

2N045 

Teste  an  IF  statement  ueing  ab¬ 
breviation  1  in  the  condition. 

Results  of  the  comparisons 
are  printed. 

2N046 

| 

- 1 

Tests  an  IF  statement  uaing 
abbreviation  2  in  the  condition. 

Results  of  the  comparisons 
are  printed. 
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Summary  of  Test 

Breakdown  of  Printed  Results 

2N048 

Tests  unequal  size  operands  fields 

Results  of  the  comparisons  are 

in  a  conditional  expression 

printed.  1 

where  equality  should  exist. 

/ 

j 

2N049 

Tests  unequal  size  operand  fields 

...  j 

Results  of  the  comparisons  are 

in  a  conditional  expression 

printed . 

2N050 

j 

where  inequality  should  exist. 

Tests  ACCEPT. ..FROM... 

1 

Data  that  was  read  is  printed. 

2N051 

Tests  DISPLAY  literal  UPON 

No  printed  results  except  the 

, 

mnemonic-name . 

actual  output  on  the  device 

specified  by  mnemonic-name. 

2N052 

Test  DISPLAY  mixed-literal- 

i 

i 

No  printed  results  except  the 

and-iden tif ier-series  UPON 

actual  output  on  the  device 

mnemon i c-name . 

specified  by  mnemonic-name. 

• 

2NG53 

Tests  the  operation  of  quali¬ 

f 

The  fields  to  which  reference 

fications  where  it  is  required. 

is  made  are  printed. 

2NG54 

Tests  the  operation  of  qualifi¬ 

.  , 

The  fields  to  which  reference  is  1 

cation  where  it  is  not  required. 

made  are  printed. 

2N056  A\ 

Tests  the  operation  of  RENAMES 

The  fields  to  which  reference  is 

B  / 

without  the  THRU  option. 

made  are  printed. 

2NG57  A\ 

Tests  the  operation  of  RENAMES 

The  fields  to  which  reference  is 

B  / 

with  the  THRU  option. 

made  are  printed. 

1 

. . .  1 

2NU5B 

Tests  Data  Division  qualification 

The  fields  to  which  reference1  ls 

and  the  plural  form  of  the  figura¬ 

made  are  printed. 

tive  constants. 

| 

2N059 

i  Tests  level  88  entries  with  the 

Results  of  comparisons  are 

series  option  of  the  VALUE  clause. 

printed . 

2NG60 

Tests  the  DATE-COMPILED  paragraph. 

No  printed  results  at  execution 
time . 

2N061 

Tests  punctuation  characters  (; 

Correctness  indicators  are 

and  , )  and  all  numeric  procedure- 

printed . 

names  . 
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Test  ID 

Summary  of  Test 

Breakdown  of  Printed  Results 

1TH01 

Tests  single  level  subscripting  and 
the  use  of  TALLY  as  a  subscript* 

Correctness  indicators  and 
table  elements  are  printed. 

1TH02 

Tests  single  level  indexing* 

Correctness  indicators  and 
table  elements  are  printed. 

1TH0  3 

Test9  all  combinations  of  operands 
in  the  SET. ..TO..*  statement. 

Occurence  numbers  are 
printed . 

1TH04 

Tests  the  use  of  relation  con¬ 
ditions  containing  indexes  and 
index-data-i tern 9 . 

Results  of  the  comparison  are 
printed . 
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Test  ID 

Summary  of  Test 

Breakdown  of  Printed  Results 

2TH01 

Tests  2  and  3  level  subscripting. 

Correctness  indicators  and 
table  elements  are  printed. 

2TH02 

Tests  2  and  3  level  indexing. 

Correctness  indicators  and 
table  elements  are  printed. 

2TH03 

Tests  the  structural  variations  of 
format  1  of  the  SET  statement  that 
are  unique  to  2TBL. 

Occurence  numbers  are  printed. 

2TH04 

Tests  the  structural  variations  of 
format  2  of  the  SET  statement. 

Occurence  numbers  are  printed. 
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Summary  of  Test 

Breakdown  of  Printed  Results 

3TH01 

Tests  the  structural  variations 
of  format  1  of  the  SEARCH  state¬ 
ment  . 

Correctness  indicators  and  tablp 
elements  found  are  printed. 

3TH02 

Tests  the  structural  variations 
of  format  2  of  the  SEARCH  etate- 
ment  . 

Correctness  indicators  and  tablr 
elements  found  are  printed. 

3TH03 

Same  as  3TH01  but  uses  variable 
length  tables. 

Correctness  indicators  and  table 
elements  found  are  printed. 

3TH04 

Same  as  3TH02  but  uses  variable 
length  tables. 

Correctness  indicators  and  table 
elements  found  are  printed. 

3TH05 

Creates  a  sequential  file  con¬ 
taining  logical  recorde  whose 
description  contains  OCCURS 
with  the  DEPENDING  option. 

none 

3TH06 

Reads  and  verifies  the  file 
created  in  3TH05. 

Correctness  indicators  for  every 
record  and  one  for  AT  END  are 
printed . 
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1 

1 

Summary  of  Test 

Breakdown  of  Printed  Results 

1  SDCll 

Writes  an  unblocked  sequential  tape  file 
containing  fixed  length  records. 

no  printed  results. 

1SL'D2 

Reads  the  file  created  in  1SQ01.  Tests 
operation  of  the  elements  necessary  for 
an  input  file;  also  validates  1SQ01. 

One  character  for  each  record 
read:  1  ~  input  record  is 

equal  to  Working  Storage  item 
used  to  WRITE",  it.  D  -  input 
record  not  equal.  0  -  if  EOF 
found  nramaiurRly ,  answer 
is  filled  with  9's  at  that 
point.  One  character  for  A1 

END:  1  =  executed  at  correct 
time.  0  =  not  executed. 

isr-03 

Writes  a  blocked  sequential  tape  file 
containing  fixed  length  records. 

no  printed  results. 

15Q04 

Reads  the  file  created  in  1SQ03.  Tests 
operation  of  the  elements  necessary  for 
an  input  file;  also  validates  1SQ03. 

Same  as  1SQU2. 

1SQ0G 

Writes  a  blocked,  multi-reel,  sequential 
tape  file  containing  fixed  length 
records . 

no  printed  results. 

ISrjOO 

Reads  the  filo  created  in  1SQ05.  Tests 
the  operation  of  these  elements  necessa¬ 
ry  for  an  input  file;  also  validates 
1SQ05. 

Same  as  1SQCJ2. 

1SQ07 

Writes  an  unblocked  sequential  tape  file 
containing  differing  length  records. 

no  printed  results. 

1SQ0B 

Reads  file  created  in  1SQ07.  Tests  the 
operation  of  the  elements  necessary  for 
an  input  file;  also  validates  1SG07. 

Same  as  1SQ02. 

isrjoy 

Writes  a  blocked  sequential  tape  file 
containing  differing  length  records. 

no  printed  results. 

1SQ10 

Reads  the  file  created  in  1SQ09.  Tests 
the  operation  of  the  elements  neces¬ 
sary  for  an  input  file;  also  validates 
1SfJ(J9. 

Same  as  1SQ02. 

1  BfJ1 1 

Writes  a  blocked,  multi-reol,  sequent¬ 
ial  tape  file  containing  differing 
length  records. 

no  printed  results. 

1SQ12 

Reads  the  file  created  in  1 SQ 11.  Tests 
the  operation  of  the  eloments  necessary 
for  an  input  file;  also  validates  1 SQ 11. 

Same  as  1 SQD2 . 
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Breakdown  of  Printer]  Results 

1SIJ13 

Writes  an  unblocked  sequential  mass 
storage  file  containing  fixed  length 
records . 

no  printed  results. 

1SQ14 

Reads  the  file  created  in  1SQ13.  Tests 
the  operation  of  the  elements  necessary 
for  an  input  file;  also  validates  1 SQ 13. 

Same  as  1SQ02. 

1SQ15 

Reads  and  updates  the  file  created  in 
1SQ13.  Tests  the  operation  of  the 
elements  necessary  for  an  input-output 
file. 

no  printed  results. 

1 SQ1  6 

Reads  the  file  created  in  1SQ13  and 
updated  in  1SQ15.  Validates  1SQ15. 

Same  as  1SQ02. 

1SQ17 

Writes  blocked  sequential  mass  storage 
file  containing  fixed  length  records. 

no  printed  results. 

1SCJ18 

Reads  the  file  created  in  1SQ17.  Tests 
the  operation  of  the  elements  necessary 
for  an  input  file;  also  validates  1SQ17. 

Same  as  1SQD2. 

1SQ19 

Roads  and  updates  the  file  created  in 
1SQ17.  Tests  the  operation  of  the 
elements  necessary  for  an  input-output 
file. 

no  printed  results. 

1SQ20 

Reads  the  file  created  in  1SQ17  and 
updated  in  1SQ19.  Validates  1 SQ 19. 

Same  as  1SQ02. 

1SQ21 

Writes  a  print  file  using  BEFORE  and 

Each  line  contains  the 

AFTER  ADVANCING. 

_ _  . .  - 

.statement  used  to  write  it. 

1SQ23 

Writes  a  blocked,  multi-unit, 
sequential  mass  storage  file 
containing  fixed  length  records. 

No  printed  results. 

1SCJ24 

Reads  the  file  created  in  1SQ23. 

Tests  the  operation  of  the  elements 
necessary  for  an  input  file;  also 
validates  15Q23. 

Same  as  1SQ02. 

1SQ25 

Reads  and  updates  the  file  created 

1SQ23.  Tests  the  operation  of  the 
elements  necessary  for  an  input- 
output  file  in  a  multi-unit  file 
environment . 

No  printed  results. 

1SQ26 

Reads  the  file  created  in  1SQ23  and 
updated  in  1SQ25.  Validates  15Q25. 

Same  as  1SQ02. 

1SQ27- 

Tests  the  five  options  of  RERUN  in  the 

Execution  sequence  indicators 

1SQ31 

order  shown  on  page  02,  items  44-48. 

are  printed. 
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2CQ05 

Tests  the  use  of  an  OPTIONAL  file. 

One  character  for  each  record 
read:  1  =  input  record  is 

equal  to  Working  Storage  item 
used  to  WRITE  it.  0  =  input 
record  not  equal.  9  =  if  EOF 
found  prematurely,  answer  is 
filled  with  9!s  at  that  point. 
One  character  for  AT  END;  1  = 
executed  at  correct  time.  0  - 
not  executed. 

2SU06 

Creates  a  MULTIPLE  FILE  TAPE. 

none 

2SQQ7 

Reads  and  verifies  the  tape 
created  in  2SQ06. 

Same  as  2SQ0U. 

2SQ08 

Reads  and  verifies  the  last  file 
on  the  tape  created  in  2SQ06. 

Same  as  2SQ0U. 

2SQ09 

Creates  a  file  for  use  in  2SQ10. 

none 

2SQ10 

Tests  the  use  of  OPEN  with  the 
REVERSED  option. 

Same  as  2SQ05. 

2SQ11 

Tests  the  ADVANCING  option  of  WRITE 
using  data-name  and  mnemonic  name. 

Each  line  contains  the  state¬ 
ment  used  to  write  it. 

2SQ12 

Tests  the  acceptability  and 
operation  of  the  USE 
sta  tement . 

Execution  sequence  indi¬ 
cators  are  printed. 

2SQ13 

Creates  a  file  for  use  in  2SQ14  ar>d 
tests  "UIRITE . .  .FROM. .  . 

None 

2SQ14 

Read  and  verifies  the  file  created 
in  2SQ13;  and  tests  "READ. ..  INTO.  . 

, Same  as  2SQ05. 

2SQ15 

Tests  LABEL  RECORDS  data-name 
together  with  LABEL  PROCEDURE 
declaratives . 

One  character  for  each  condi¬ 
tion  as  follows:  (l)  1  indi¬ 

cates  BEGINNING  LABEL  on  OUT¬ 
PUT  written. (2)  1  indicates 
ENDING  LABEL  on  OUTPUT  written. 

(3)  1  indicates  BEGINNING  LABEL 
on  INPUT  verified. (4)  1  indi¬ 
cates  ENDING  LABEL  on  OUTPUT 

verified . 
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Summary  of  Tost 

Breakdown  of  Printed  Results 

1RA01 

Writes  an  unblocked  mass  storage 
file  in  random  access  mode. 

no  printed  results  # 

1RA02 

Reads  and  verifies  the  file  created 
in  1RA01. 

One  character  per  record  read: 

1  =  input  record  is  equal  to 
Working  Storage  item  used  to 
WRITE  it.  □  =  input  record 
not  equal.  9  =  INVALID  KEY 
exit  taken  on  record. 

1RA03 

Reads  and  updates  inpplace  the 
file  created  in  1RA01. 

no  printed  results. 

1RA04 

Reads  and  verifies  the  file  created 
in  1RA01  and  updated  in  1RA03. 

Same  as  1RA02. 

1RA05 

Logically  equivalent  to  1RA01  but 
for  blocked  records* 

no  printed  results. 

1RA06 

Logically  equivalent  to  IRAQI  but 
for  blocked  records. 

Same  as  1RA02. 

1RA07 

Logically  equivalent  to  1RA03  but 
for  blocked  records. 

no  printed  results. 

1RA0B 

Logically  equivalent  to  1RA04  but 
for  blocked  records. 

Same  as  1RA02. 
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2RA01 

Creates  a  random  access  file  whose 
records  are  unblocked  and  of  differ¬ 
ing  lengths.  Uses  data-name  option 
of  FILE-LIMITS  clause,  and  "TO  inte¬ 
ger"  option  of  BLOCK  CONTAINS  . 

No  printed  results. 

2RA02 

Reads  and  verifies  the  file  created 
in  2RA01  . 

One  character  per  record  road: 

1  =  input  record  is  equal  to 
Working  Storage  item  used  to 

WRITE  it.  0  -  input  record  im! 
equal.  9  ^  INVALID  Kl  Y  exi  t 
taken  on  rec  ird. 

2RA03 

Reads  and  updates  in  place  the  file 
crea ted  in  2RA01 . 

No  printed  results. 

2RA04 

Reads  and  verifies  the  file  created 
in  2RA01  and  updated  in  2RAD3. 

Same  as  2RA02. 

2RA05 

Logically  equivalent  to  2RA02  but 
for  blocked  records. 

No  printed  results. 

2RA0G 

Logically  equivalent  to  2RAG2  but 
for  blocked  records. 

Same  as  2RA02. 

2RA07 

Logically  equivalent  to  2RA03  but 
for  blocked  records. 

No  printed  results. 

2RA00 

Logically  equivalent  to  2RA04  but 
for  blocked  records. 

Same  as  2RA02. 

2  R  A  0  9 

thru 

2RA12 

Logically  equivalent  to  2RA0  1  thru 

2RA04  except  that  UJRITE...  FROM, 

READ...  INTO,  literal  series  option 
of  FILE-LIMITS  clause,  STANDARD 
option  of  LABEL  RECORDS  clause  and 
literal-series  option  of  VALUE  OF 
clauses  are  used. 

Same  as  2RA01  thru  2RAU4 . 
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2RA13 

thru 

2RA16 

Logically  equivalent  to  2RA05 
thru  2RA08  except  that  WRITE... 
FROfil,  READ... INTO,  data-name 
series  option  of  FILE-LIIYIITS 
clause,  data-name  series  option 
of  LAOEL  RECORDS  clause,  data- 
name  series  of  VALUE  OF  clause, 
and  in  2RA16  CLOSE .. .WITH  LOCK, 
are  used. 

Same  as  2RA05  thru  2RA00. 

2RA17 

Tests  the  acceptability  and 
operation  of  the  USE  state¬ 
ment. 

Execution  sequence  indicators 
are  printed. 

2RA18 

Tostn  LABEL  RECORDS  data-name 
in  conjunction  with  USE... LABEL 
PROCEDURE  ON  OUTPUT,  INPUT, 

1-0. 

Rosults  indicate  a  'V  for 

1.  OUTPUT  HEADER  written 

2.  OUTPUT  TRAILER  written 

3.  INPUT  HEADER  verified 

4.  INPUT  TRAILER  verified 

5.  1-0  HEADER  verified 

6.  1-0  TRAILER  verified. 
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Summary  of  Test 

Breakdown  of  Prirted  Results 

1ST01 

Sorts  6  records  created  in  and 

aaabbbcccdddeeef  f  f g* 

checks  the  sequence  of  the  returned 

Each  returned  record,  represented 

records  in  the  OUTPUT  PROCEDURE. 

by  a  through  f,  has  three  tests 
made  upon  it:  for  content  of 
first  non-key  field;  the  sort  key; 
for  the  content  of  the  second  non¬ 
key  field.  The  final  g  is  0  if  an 
incorrect  number  of  records  are 
returned . 

1ST02 

Services  1ST03  by  creating  an 
input  for  it.  No  sort. 

No  printed  results. 

1ST03 

The  file  created  by  1ST02  is  sorted, 

aabbcc - xxyyz* 

descending,  with  the  OUTPUT  PROCED- 

Each  of  the  records,  represen¬ 

URE  checking  sequence  on  keye  and 

ted  by  a  through  y,  has  two 

contents  of  non-key  areas.  Sorted 

tests  made  upon  it:  for  the  non¬ 

records  are  written  onto  a  FILE- 

key  area;  for  the  key  area.  z 

NAIHE-USING-4  for  paseing  to  1ST04. 

represents  1  for  good  count,  0  for 
bad  count. 

1ST04 

The  USING  file  is  the  descendingly 
sorted  file  of  1ST03  which  ie 
sorted  into  ascending  order  and 
passed  to  1ST05. 

No  printed  resulte. 

1ST05 

Checks  sequence  of  file  paeeed  from 
1ST04. 

Same  as  1ST03. 

1ST06  * 

Sorts  with  THRU  option  of  INPUT 
PROCEDURE  and  with  the  OR  option 
of  the  ASSIGN  clause.  Depends  upon 
blank  and  zero  relative  collating 

No  printed  results. 

eequences  for  SORT  and  IF  being  the 
same.  GIVING  used. 

1ST07 

Checke  eequence  of  file  paeeed  from 

aaabbbccc. . .xxxyyyz* 

1ST06. 

Each  of  the  keys  is  separately 
checked  in  each  of  the  records. 
Correct  count  is  reflected  in  z. 

1ST08 

Sort  with  multiple  RELEASE  state¬ 

aaabbbccc. . .xxxyyyz* 

ments  in  the  INPUT  PROCEDURE  and 

Each  of  the  keys  is  separately 

multiple  descending  keys.  OUTPUT 

checked  in  each  of  the  records. 

PROCEDURE  used. 

Correct  amount  is  reflected  in  z. 

1ST09 

Sorte  with  multiple  RETURN  state¬ 

abc. . .xyz* 

ments  in  the  OUTPUT  PROCEDURE,  on 

Records  are  checked  only  for  the 

eight  types  of  ascending  Keys. 

f  most  recently  changed  Key.  The 

Uses  INPUT  PROCEDURE. 

record  count  is  reflected  in  z. 
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Test  10 

Summary  of  Test 

Breakdown  of  Printed  Results 

1ST10 

Creates  a  file  of  differing 
length  records  to  be  passed  to 
1ST11 . 

No  printed  results- 

1ST11 

Sorts  file  from  1ST10  records, 
descending,  on  tu/o  seriee  Keye. 
Uses  USING,  GIVING  and  the  TO 
option  of  RECORD  CONTAINS. 

No  printed  results. 

1ST12 

Checks  sequence  of  file  paeeed 
from  1ST11. 

aaabbbccc. . .xxxyyyz* 

Each  record  is  checked  on  three 
fields:  a  body  field  unique  to  each 

record  length;  Key-1;  and  Key-2. 

The  record  count  is  reflected  in  z. 

15T13 

Prepares  a  3  reel  tape  file 
(using  CLOSE  REEL)  each  contain¬ 
ing  26  records  of  33  characters 
each  to  be  passed  to  1ST14. 

No  printed  reeulte. 

1ST14 

Sorts  the  multi-reel  file  creat¬ 
ed  in  1ST13  into  descending 
sequence.  Uses  USING,  GIVING. 

The  sort  Key  is  an  01  elemen¬ 
tary  item  and  is  also  named  in 
the  DATA  RECORDS  clauses  of  the 
SO. 

No  printed  reeulte. 

1ST15 

Checks  sequence  of  the  file 
paeeed  from  1ST14. 

abc. . .xyz* 

The  78  records  are  each  checked  for 
total  contents  once.  The  record 
count  ie  reflected  in  z. 
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Test  ID 

Summary  of  Test 

Breakdown  of  Printed  Results 

2ST01 

A  double  sort  in  u/hich  one 
sort  (i/P,  GIVING )  is  by 
another  (USING  0/P)  in  which 
the  USING  file  is  the  same 
FD-name  as  is  the  previous 
GIVING  file. 

aabbcc . . .xxyy z* 

Each  of  the  records  returned  is 
checked  first  on  an  indicative  non- 
key  field  and  then  upon  the  Key 
field.  The  total  record  count  is 
reflected  in  z. 

2ST02 

SAME  RECORD  clause  for  both 
an  SD  and  two  FD  files,  all 
defined  within  this  test. 

aaabbbccc. . .xxxyyyz* 

The  recorde  (here  represented  by 
a , b , c , . . . x , y )  are  checked:  upon  a  set 
non-key  field;  on  another  non-key 
field;  and  on  the  eort  Key.  The 
record  count  is  reflected  in  z. 

2ST03 

The  USE  of  SAME  SORT  and 

SAME  RECORD  clauses  and  of 
multiple  SAME  clauees. 

Method  is  generally  the 
same  as  for  the  2STC2 
except  for  the  value  of  Keys 
generated  and  expected  after 
sorting . 

 .  .  . . . 

aaa  bbb  ccc  ...  xxx  yyy  z* 

The  records  are  checked:  on  an  alpha¬ 
betic  justified  non-key  field;  on 
another,  similar,  non-key  field;  and 
on  the  unsigned  numeric  display  Key 
field.  The  record  count  is  reflected 
in  z . 

2ST04 

The  FROM  option  of  the 

RELEASE  statement  and  the 
RESERVE  clause  of  the  SELECT 
statements.  Uses  INPUT  PRO¬ 
CEDURE  and  GIVING.  After  the 
sort,  it  reads  back  and 
checke  the  sorted  recorde. 

aaa  bbb  . . .  xxx  yyy  z* 

The  records  are  checked:  on  the  sort- 
key;  onafixed  numeric  field;  and  on  a 
fixed  alphanumeric  field.  The  record 
count  is  reflected  in  z. 

2ST05 

Tests  the  INTO  option  of 
RETURN  along  with  dual  re¬ 
ference  capability  of  the 
returned  item.  Uses  both 
INPUT  and  OUTPUT  PROCEDURE*  e. 

aaabbbccc . . .xxxyyyz* 

The  recorde  are  checked:  to  verify 
that  the  UJ-S  item  referenced  by  the 

INTO  clause  is  identical  to  the  sort 
record  returned;  and  the  key  is  checked 
for  expected  contents.  The  record 
count  if  reflected  in  z. 

2ST06 

Checks  conformity  of  the 
RELEASE  and  RETURN  state¬ 
ments  to  the  rules  of  group 
MOVES. 

aaaabbbbcccc . . .xxxxyyyyz* 

The  records  returned  (here  represented 
as  a,b,c,..x,y,  where  a  represents  two 
consecutive  records,  b  two  consecutive 
recorde,  etc.)  are  compared  thusly: 

the  Sort-record  returned  versus  the  UJ-S 
item  named  in  the  INTO  clause; 

the  next  Sort-record  to  be  returned 
versus  a  separate  UJ-S  item  into  which 
the  first  Sort-record  has  been  MOVED. 

a  sequence  check  on  the  record  in  the 
UJ-S  item  named  in  the  INTO  clauses;  and 

a  sequence  checks  on  the  Sort-record 
itself. 
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Test  ID 

Summary  of  Teet 

• 

Breakdown  of  Printed  Results 

1 

1RUJ01 

Tests  a  minimal  Report  Writer 
environment . 

1 

! 

The  results  are  reports.  These  reports1 
are  validated  by  comparing  them  to  the  | 
"standard"  eet  of  reports  which  are 
printed  conventionally  from  the  tests.  I 

_  _  i 

1RUJ02 

: 

j 

j 

| 

Teste  the  following: 

1)  HEADING,  FOOTING  clauses, 
with  minimal  environment,  2) 

Page  Counter  with  size  deter¬ 
mined  by  the  PICTURE  of  SOURCE 
item,  3)  How  Line  Counter 
effects  PAGE-LIMIT  and  NEXT 

GROUP,  4)  Report  Group,  LINE 
NUMBER  with  PLUS  option, 

,  NEXT  GROUP  clause,  PLUS  option, 
and  5)  Report  Elementary,  JUS¬ 
TIFIED  RIGHT:  qualification  by 
RD,  SOURCE  IS  UJorking-Storage- 
i  tem . 

\ 

The  results  are  reports.  These  reports; 
are  validated  by  comparing  them  to  the 
"standard"  set  of  reports  which  are 
printed  conventionally  from  the  tests. 

1RUJ03 

j  Tests  the  following:  l)  Report 

;  Elementary;  LINE  u/ith  absolute 

|  values,  PLUS,  and  NEXT  PAGE,  2) 

1  NEXT  GROUP  with  absolute  values 
and  NEXT  PAGE,  3)  LINE,  4)  TYPE, 
5)  NEXT  GROUP  with  epecial  casee 

1  in  other  than  groups,  6)  ability 
to  have  non-contradicting  LINE 
claueee  at  different  levels,  7) 
abbreviations  RH  and  RP  and  8) 
JUSTIFIED  RIGHT  clause. 

The  results  are  reports.  These  reports 
are  validated  by  comparing  them  to  the 
"standard"  set  of  reports  which  are 
printed  conventionally  from  the  tests. 

i 

! 

1 J 
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Test  ID  Summary  of  Test 

i 

- | - 

- , 

Breakdown  of  printed  results 

2RUJ01 

i 

i 

i 

i 

! 

Tests  Controls  would  have  a  min¬ 
imal  environment  consisting  of  the 
clauses;  l)  RD;  CONTROL  IS  iden¬ 
tifier,  PAGE  LIfYlITs  Clauses, 

FOOTING  option  of  PAGE  LIMIT,  2) 
Report  Group  clauses;  CF  option  of 
TYPE,  3)  Report  Elementary  clauses; 
GROUP  INDICATE  AND  SUM .  GROUP 
INDICATE  is  tested  for  page  break 
without  a  control  break. 

f 

The  results  are  reports.  These  reports! 
are  validated  by  comparing  them  to  the  • 
"standard"  set  of  reports  which  are 
printed  conventionally  from  the  tests. 

1 

^  1 

2RUJ02 

i 

L. 

Tests  the  following: 

1)  suppression  of  items  by  omit¬ 
ting  their  COLUMN  clause,  2)  Mul¬ 
tiple  DETAIL  lines,  3)  SUM  data- 
name  series,  4)  SUM  using  sum- 
counter-name,  5)  SUM  UPON 

6)  SUM  RESET  7)  SUM  UPON  RESET 

0)  TERMINATE  followed  by  INITIATE, 
9)  summary  reporting. 

1 

| 

The  results  are  reports.  These  reports^ 
are  validated  by  comparing  them  to  the 
"standard"  set  of  reports  which  are 
printed  conventionally  from  the  tests. 

i 

i 

! 

i 

l 

i 

i 

t 

[ 

2RUJ03 

Writes  multiple  reports  on  one 
file  (series  option  of  REPORTS  ARE 
clause),  WITH  CODE  clause,  series 
option  of  TERMINATE,  single  and 
multiple  character  CODE,  referenc¬ 
ing  SUM  counter  from  Procedure 
Division,  multiple  GENERATES  for 
a  given  elementary  item.  A  high 
level  SUM  with  no  low  level  SUM  is 
included  in  this  test. 

The  results  are  reports.  These  reports 
are  validated  by  comparing  them  to  the 
"standard"  set  of  reports  which  are 
printed  conventionally  from  the  tests. 

1 

i 

1 

l 

2RUJ04 

Teats  the  USE  BEFORE  REPORTING 
declarative,  to  see  that  a  change 
just  before  GENERATE  is  reflected 
by  the  USE  declarative. 

The  results  are  reports.  These  reports 
are  validated  by  comparing  them  to  the 
"standard"  set  of  reports  which  are 
printed  conventionally  from  the  tests. 

2RUJ05 

Teste  the  referencing  of  an  out- 
of-Une  USE  BEFORE  REPORTING 
declarative  by  an  in-line  PERFORM. 
All  line  references  are  absolute. 

The  results  are  reports.  These  reports 
are  validated  by  comparing  them  to  the 
"standard"  set  of  reports  which  are 
printed  convent ionally  from  the  tests. 
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Test  ID 

Summary  of  Test 

Breakdown  of  Printed  Results 

15G01 

ALTER  in  11  section 

GO  TO  in  00  section 

PERFORlYling  00  from  11 

Execution  sequence  indicators 
are  printed. 

1SG02 

ALTER  in  00  section 

GO  TO  in  00  section 

PERFORlYling  00  from  00 

Execution  sequence  indicators 
are  printed. 

15G03 

ALTER  in  50  section 

GO  TO  in  50  section 

PERFORlYling  50  from  49 

Execution  sequence  indicators 
are  printed. 

1SG04 

ALTER  in  50 

GO  TO  in  50 

PERFORlYling  50  from  50 

Execution  sequence  indicators 
are  printed. 

15G05 

ALTER  in  66 

GO  TO  in  33 

PERFORlYling  33  from  66 

Execution  sequence  indicators 
are  printed. 
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Test  ID 

Summary  of  Test 

Breakdown  of  Printed  Results 

1  SG1 1 

ALTERS  in  12 

GO  TOs  in  01 ,  02 

PERFORIYling  01  thru  02  from  12 

Execution  sequence  indicators 
are  printed. 

1  SGI  2 

ALTERS  in  55 

GO  TOs  in  55,  55 

PERFORIYling  55  thru  55  from  14 

Execution  sequence  indicators 
are  printed. 

1SG13 

ALTERS  in  70 

GO  TOs  in  07,  OB 

PERFORIYling  1)7  thru  08  from  70 

Execution  sequence  indicators 
are  printed. 

1SG14 

ALTERS  in  60 

GO  TOs  in  60 

PERFORIYling  60  thru  60  from  60 

Execution  sequence  indirat. di 
are  printed. 
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Test  ID 

Summary  of  Test 

Breakdown  of  Printed  Results 

2SG01  A 

0 

C 

Uses  tests  1SG02,1SG03,  and  1SG05 
with  SEGMENT  LimiT  30. 

Printout  of  results  from 

1SEG . 

2SG02  A 

B 

C 

Uses  tests  1 SG 1 1 , 1SG1 2, 1SG1 3  with 
SEGMENT  LimiT  9. 

Printout  of  results  from 

1SEG. 
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Test  ID 

Summary  of  Test 

Breakdown  of  Printed  Results 

1LB01 

Compares  copied  versus  a  non- 
copied  data  item. 

One  character  for  each  comparison.  1  if 
found  to  be  as  expected,  0  if  not  found 
to  be  as  expected. 

1LB02 

Copied  paragraphs  move  data 
items  and  check  for  expected 
contents . 

One  character  for  each  comparison,  1  if 
found  to  be  ae  expected,  0  if  not  found 
to  be  as  expected. 

i 

..  j 

1LB03 

FILE-CONTROL  section  is 
copied . 

One  character  for  each  comparison,  1  if 
found  to  be  as  expected,  0  if  not  found 
to  be  as  expected. 

1LB04 

A  minimal  report  writer 
environment  contains  copied 

RD  entry. 

The  results  are  reports.  These  reports 
are  validated  by  comparing  them  to  the 
"standard"  set  of  reports  which  are 
printed  conventionally  from  the  tests. 

1LB05 

i 

i 

A  sequential  file  is  written, 
read,  and  compared,  using 
copied  FD  and  01  entries. 

One  character  for  each  comparison.  I  if 
found  to  be  ae  expected,  0  if  not  found 
to  be  as  expected. 

1LB06 

A  minimal  eort  with  INPUT 
and  OUTPUT  procedures  ie 
executed  using  a  copied  SD 
entry . 

aabbcc  .  .  .xxyy z* 

Each  of  the  records  returned  is  checked 
first  on  an  indicative  non^key  field  and 
then  upon  the  Key  field.  The  total 
record  count  is  reflected  in  z. 

1LB08 

SOURCE  COMPUTER  and  OBJECT 
COMPUTER  aFe  copied. 

t 

The  test  program  listing  must  be 
checked  to  validate  results. 

1LB09 

Switch  status*s  in  SPECIAL- 
NAMEs  are  copied. 

One  character  for  each  comparison.  1  if 
found  to  be  as  expected,  0  if  not  found 
to  be  as  expected. 

1LB10 

Copies  I-0-C0NTR0L  SAME  AREA 
clause.  UJrites  and  reads 
back  two  sequential  filee. 

One  character  for  each  comparison.  1  if 
found  to  be  as  expected,  o  if  not  found  j 
to  be  as  expected. 
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Test  ID 

Summary  of  Test 

Breakdown  of  Printed  Results 

2LB01 

Compares  copied  vereus  a  non- 
copied  data  item  with  REPLAC¬ 
ING  option  used. 

One  character  for  each  comparison.  1  if 
found  to  be  as  expected,  0  if  not  found 
to  be  as  expected. 

2LB02 

Copied  paragraphs  mo ve  replaced 
data  items  and  check  for  expec¬ 
ted  contents. 

One  character  for  each  comparison,  1  if 
found  to  be  as  expected,  0  if  not  found 
to  be  as  expected. 

2LB03 

FILE-CONTROL  section  is  copied 
with  the  file  name  replaced. 

One  character  for  each  comparison,  1  if 
found  to  be  as  expected,  0  if  not  found 
to  be  as  expected. 

2LB05 

A  sequential  file  is  written, 
read,  and  compared,  ueing  FD 
and  01  entries  copied  with  the 
REPLACING  option. 

One  character  for  each  comparison.  1  if 
found  to  be  as  expected,  0  if  not  found 
to  be  as  expected. 

2LB08 

SOURCE -COMPUTER  and  0B3ECT- 
C0IY1PUTE R  names  are  copied  with 
the  REPLACING  option. 

The  test  program  listing  must  be 
checked  to  validate  results. 

2LB09 

SPECIAL-NAMES  is  copied  with 
the  switch  status’s  replaced. 

One  character  for  each  comparison.  1  if 
found  to  be  as  expected,  0  if  not  found 
to  be  as  expected. 

2LB10 

Copiee  1-0  CONTROL  SAfflE  AREA 
clause  REPLACING  the  file 
names.  UJrites  and  reads  back 
two  sequential  files. 

One  character  for  each  comparison.  1  if 
found  to  be  as  expected,  0  if  not  found 
to  be  as  expected. 
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APPENDIX  V 

PFffl  DIAGNOSTIC  MESSAGES 


The  following  is  a  list  of  diagnostic  messages  with  their 
respective  interpretation: 


Diagnostic  Message 

Explanation 

f  C ARD-RDR  MANDATORY 

Environment  table  has  missing 

\CARD  24  INFO  MANDATORY 

specification  for  CARD-RDR. 

'COmPUTER-NAmE  MANDATORY 

Environment  table  has  missing 

<  CARD  1  INFO  MANDATORY 

COMPUTER-NAME*  Card  numbers 

.CARD  2  INFO  (TIANDATORY 

refer  to  card  images  generated 

for  the  Population  File. 

ERROR  IN  FIRST  2  COLUMNS 

A  control  card  was  expected. 

Chances  are  that  this  is  a  data 

card  for  a  previous  aborted 

action . 

FIELD  28  BLANK,  ASSUMED  D 

Environment  Table  input  card 

number  9  has  a  blank  in  field 

28.  D  is  assumed. 

FIELD  36  BLANK,  ASSUMED  D 

Environment  Table  input  card 

number  10  has  a  blank  in  field 

36.  D  is  assumed. 

INVALID  ACTION 

Header  card  encountered  with  an 

invalid  action  code.  The  valid 

action  codes  are  A,  D,  C  &  P. 

MATCH-OLD  ENTRIES  DELETED 

On  an  add  action  If  a  header  match 

occurs  the  old  entries  will  be 

deleted  and  the  new  entries  will 

replace  them. 

NO  MATCH 

Means  old  Population  File  Master 

is  at  EOF  and  no  matching  header 

was  found.  In  the  case  of  an 

add  this  may  not  be  an  error. 
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Diagnostic  Message  (cont'd.) 
NO  MATCH — SO  WILL  IGNORE 


PRINTER-NAME  MANDATORY 
CARD  25  INFO  MANDATORY 

SEQ  ERROR  IN  ENV  ON  POP  FILE 
ADVISE  DELETING,  THEN  ADDING 


!  TAPE-UNIT-1  MANDATORY 
CARD  19  INFO  MANDATORY 

(TAPE-UNIT-2  MANDATORY 
CARD  20  INFO  MANDATORY 

I  TAPE -UNIT-3  MANDATORY 
CARD  21  INFO  MANDATORY 

(USABLE-SIZE  MANDATORY 
CARD  4  INFO  MANDATORY 


Explanation  (cont'd.) 

On  a  change  action  if  no  matching 
header  is  found  the  action  and 
subsequent  change  cards  will 
be  ignored. 

Environment  table  has  missing 
specification  for  PRINTER-NAME. 

Found  sequence  error  on  Pop- 
NEW  ulation  File  Master  within 
an  Environment  Table.  This 
should  never  occur  but  may 
occur  as  the  result  of  a 
tape  read  error . 


Environment 

table 

has 

missing 

specification  for 

TAPE 

-UNIT-1. 

Environment 

table 

has 

missing 

specification  for 

TAPE 

-UNIT-2. 

Environment 

table 

has 

missing 

specification  for 

TAPE 

-UNIT-3. 

Environment 

table 

has 

missing 

USABLE-SIZE . 
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APPENDIX  VI 


CONSIDERATIONS  IN  CREATING  TESTS 

SEQUENCE  NUMBERING 

Sequence  numbers  (column  1-6)  must  be  assigned  to  statements 

within  each  test  in  accordance  with  the  algorithm  shown  in 

Figure  6. 

Three  points  must  be  noted: 

1,  Phase  3  of  the  Selector  inserts  Division  Headers  and  cer¬ 
tain  section  and  paragraph-names  on  the  basis  of  these 
sequence  numbers*  and  therefore*  misnumbering  will  cause 
disorganization  in  the  Selector  output, 

2,  Phase  3  of  the  Selector  program  checke  for  matching  sequence 
numbers  in  adjacent  cards,  When  this  condition  is  detected, 
one  of  the  matching  pair  will  be  deleted,  A  diagnoetic 
will  be  issued  if  the  deleted  card  did  not  match  the 

other  in  columns  7-72,  Therefore,  care  must  be  taken  in 
sequence  numbering  tests  that  appear  in  the  same  program 
(see  the  aseignmente  in  3,1, 1,2,1),  Duplicate  numbere 
should  be  assigned  to  only  those  iteme  that  are,  in  feet, 
duplicates . 

3,  (Yloet  of  the  available  serial  numbers  have  been  exhausted 
by  existing  tests.  The  numbers  remaining  in  each  series 
can  be  ascertained  by  checking  the  listing  of  the  highest 
numbered  test  in  each  module. 
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DIVISION  SECTION 


IDENT. 


PROG-ID 

AUTHOR 

INSTAL 

DATE-UJR 

DATE-COMP 

SECUR 

REMARKS 


0 

0 

0 

0 

0 

0 

0 


0 

0 

0 

0 

0 

0 

0 


CONFIG 


0 


0 

FUNCTION 


CARD  COLUMN 


3 


0 

0 

0 

0 

0 

0 

0 


4 


1 

2 

3 

4 

5 

6 
7 


0000-9999 
SEQUENTIAL  NUMBER 


00-99 

SEQUENTIAL 

NO. 


ENVIR. 


FILE-CONTROL 


1-0 -CONTROL 


FILE  SECTION 


2,3 


DATA 


WORKING- 
STORAGE  (77) 

(OTHERS) 

REPORT  SECTION 

DECLARATIVES 


4 

5 

6 

7 


PROC. 


NON-DECLAR. 


8,9 


0  NUC 

1  TBL 

2  SEQ 

3  RAC 

5  SRT 

6  RPW 

7  SEG 

8  LIB 

9  SUPPORT 


0  RERUN 

1  SAME 

2  MULTIPLE 


000-999 

SEQUENTIAL  NUMBER 


0000-9999 
SEQUENTIAL  NUMBER 


NOTE:  Sequential  number  field  may  restart  at  zero  whenever 

a  digit  to  its  left  changes 


Figure  6.  Sequence  Numbering  for  Test  Cards 
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TEST  REFERENCE  TO  ENUIRON1TIENTAL  DATA 


Test  routine  cards  that  are  to  be  replaced  by  environmental  data  en¬ 
tries  have  a  special  format.  Column  7  contains  an  1  E'. 

Columns  8-25  may  contain  the  drop  range  indicator: 

FROfllrnmmmmmTOnnnnnn 

Thie  indicates  that  carde  from  this  teet  with  sequence  numbers 
mmmmmm,  nnnnnn  and  all  intervening  carde  will  be  eliminated 
by  the  Selector  if  the  environmental  entry  whose  sequence  num¬ 
ber  appears  in  columns  75  -  80  of  this  card  has  an  N  in  its 
column  7  (indicating  that  the  information  required  ie  not 
available  for  thie  configuration).  Column  74  containe  a  D  if 
the  entire  teet  is  to  be  eliminated  by  the  Selector  if  the 
environmental  data  is  abeent.  (Thie  indicator  overrides  columns 
8  -  25).  In  the  absence  of  either  of  these  indicators,  only 
the  requesting  card  iteelf  will  be  dropped  if  the  environmental 
data  is  miesing.  Column  75  -  80  contains  the  sequence  number 
of  the  entry  in  the  environmental  data  set  that  is  to  replace 
col  7  -  80  of  thie  entry. 

For  example,  coneider  the  following  carde  from  test  1N022,  each  of  which 
requests  replacement  by  an  environmental  entry: 

1  7 _ _ _ 74  60 _ 

TA1N022. . . 

♦ 

400124E  ET0040 

400136EFR0IY1400134T0400145  ET0300 

400181E  DET0050 

Card  400124  requests  that  the  environment  data  card  with  sequence  number 
ET0040  replace  it  from  col  7  through  80.  If  card  ET0040  contains  an  N 
in  ite  column  7,  card  400124  will  be  omitted  from  the  test  by  the 
Selector  program.  Card  400136  requests  replacement  by  environment 
entry  ET0300.  If  ET0300  hae  an  N  in  ite  column  7,  the  Selector  will 
omit  cards  400134-400145  from  test  1N022.  Card  400181  requests  replace¬ 
ment  by  card  ET0050.  If  ET0050  hae  an  N  in  its  column  7,  test  1N022 
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will  be  omitted  in  its  entirety  by  the  Selector  program.  In 
any  case,  when  the  requested  environmental  data  card  has  an 
N  in  its  column  7,  a  diagnostic  message  is  issued. 

DATA  N AITI I NG  CONVENTION 


Data  items  that  are  used  as  source  and  receiving  items  for  test  state¬ 
ments  are  assigned  names  under  the  following  naming  convention: 


GRP-name  4 

The  uppermost  format  is  used  for  all  elementary  items  except  those  with 
editing  symbols  within  their  PICTURE.  Fields  subject  to  change  begin  with 
the  designation  fUJRK'  while  constant  source  items  begin  with  a  mnemonic  or 
literal  indication  of  their  VALUE.  Because  1NUC  requires  that  data-names 
begin  with  an  alphabetical  character,  the  names  assigned  to  source  items 
containing  numeric  literals  as  value  will  begin  with  the  character  fAf. 

The  next  letters  indicate: 


CU 

CS 

DU 

D5 

IX 

XT 

XN 

AO 

AN 


unsigned  COMPUTATIONAL 
signed  COMPUTATIONAL 
unsigned  DISPLAY 
signed  DISPLAY 
index  items 

alphanumeric  OUST  IF  I  ED 
alphanumeric  unjustified 
alphabetic  OUSTIFIED 
alphabetic  unjustified 
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The  next  five  characters  indicate  the  size  and  point  location.  P 
indicates  the  scaling  P,  either  left  or  right,  and  when  it  appears,  the 
two  digits  nearest  it  indicate  the  number  of  P's  while  the  other  two 
digits  indicate  the  number  of  9's  in  the  item's  PICTURE.  V  indicates 
an  implied  decimal  point.  The  digits  indicated  by  n  give  the  number 
of  X's,  9's,  or  Af8  in  the  PICTURE.  The  optional  0nnn  indicates  an 
OCCURS  clause  with  nnn  occurrences.  The  trailing  D  indicates  a 
DEPENDING  clause  while  F  indicates  the  lack  of  same.  S  indicates 
an  item  containing  a  REDEFINES  clause,  L  or  R  indicate  SYNCHRONIZED 
LEFT  and  RIGHT  respectively  and  the  final  nnnn  provides  for  a  unique 
serial  number. 

The  lower  two  formats,  one  for  edited  items  (both  alphanumeric  and 
numeric)  and  one  for  group  items  are  self  explanatory.  This  convention 
serves  two  purposes.  First,  it  yields  a  self-documenting  data-name. 
Second,  and  more  important,  it  enables  the  Selector  Program  to  identify 
elementary  non-report  level  77  items  with  identical  data  descriptions 
through  a  simple  comparison  of  data-names.  Uihen  the  result  of  this 
comparison  is  equal,  the  Selector  eliminates  from  each  test  program 
all  but  one  of  each  eet  of  identically  defined  level  77  data  items. 
Elimination  may  be  suppressed  by  adding  to  the  data-name  of  a  given 
item  a  unique  serial  number,  ehown  as  the  final  nnnn  in  the  preceding 
format . 

The  Selector  program  also  eliminates  all  but  one  from  each  set 
of  FD's  and  Ol's  with  identical  names  and  descriptions,  liihen  an 
FD  ie  eliminated,  the  FD  clause  itself,  its  defining  claueee 
(RECORDING  MODE,  BLOCK  etc.),  and  the  definitions  of  all  its  re¬ 
cords  are  dropped.  Uihen  a  level  01  item  is  eliminated  all  items 
subordinate  to  it  are  also  eliminated.  The  namee  of  items  with 
level  numbers  02-49  are  not  examined  on  an  individual  basis,  and 
these  items  are  only  eliminated  when  the  level  01  to  which  they 
are  subordinate  ie  eliminated. 
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Because  each  Test  includes  all  the  file  and  data  definitions 
it  requires,  this  process  of  elimination  is  essential  in  gene¬ 
rating  a  test  program  of  reasonable  size. 

USE  OF  THE  SUPPORT  ROUTINE 

The  Support  Routine  compares  the  result  achieved  by  each  test 
with  the  expected  result.  If  the  character  by  character  compa¬ 
rison  indicates  a  difference,  the  results  are  printed  with  an 
underline.  If  1  ALL 1  is  stated  on  the  HDU1R  card  (see  3.2.1)  all 
results  are  printed. 

In  order  to  utilize  the  routine,  the  following  procedure  steps 
are  required: 

1.  MOVE  results  TO  SUP-U1K-A. 

SUP-U1K-A  is  a  120  character  area  used  to  hold  results.  If 
more  than  one  result  is  to  be  moved,  each  can  be  moved 
character  by  character  to  SUP-UJK-B  under  control  of  a  sub¬ 
script. 

2.  MOVE  1  expected-result* 1  TO  SUP-UiK-C. 

Expected  results  can  be  most  easily  stated  in  a  literal. 

Note  that  the  result  is  terminated  by  the  additional  charac¬ 
ter  ***.  This  character  limits  the  comparison  between 
SUP-UJK-A  and  SUP-UJK-C. 

3.  MOVE  1  test-name'  TO  SUP-ID-UJK-A . 

Test-names  are  five  characters  in  length  and  are  discussed 
in  3.1. 1.2.1 

4.  PERFORM  SUPPORT-RTN  THRU  SUP-RTN-C. 

Return  is  made  to  the  next  statement. 
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Variations  of  this  standard  linkage  may  be  required  by  results 
that  exceed  120  characters,  or  by  other  unusual  circumstances. 
Perusal  of  the  test  listings  will  indicate  various  alterations 
that  can  be  used. 
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APPENDIX  VII 


SYSTEM  GENERATION  SPECIFICATIONS 

Required  Configuration 

Any  IBM  System  360  with  the  following  minimum  configuration  may 
be  used: 

1.  a  console  typewriter  with  unit  address  OIF 

2.  a  card  punch  with  unit  address  00D 

3.  two  9-track  800  bpi  tape  units  with  unit  addresses  182  and  103. 

Procedure 

Mount  input  tape  on  tape  unit  182,  Ready  a  scratch  tape  (for  the 

population  file)  on  tape  unit  183.  Ready  the  card  punch  (00D).  Set 

the  machine  load  address  to  unit  182  and  press  LOAD.  The  program  will 
punch  an  object  deck  of  the  CC\IS  Character  Code  Conversion  program 
and  source  decks  for  the  three  phases  of  the  C C V/S  Selector  Program. 

It  will  then  copy  the  Population  File  onto  the  tape  readied  on  unit 
183.  The  user  may  now  separate  the  punched  output  into  four  ducks: 

1.  the  character  code  conversion  program  loadable  deck 

2.  the  Selector  phase  1  source  deck 

3.  the  Selector  phase  2  source  deck 

4.  the  Selector  phase  3  source  deck. 

Each  of  these  decks  is  preceded  by  a  special  header  card  to  make  it 
easy  to  find.  Each  header  contains  an  identification  in  columns 
1-12  for  the  deck  following  it  (TRANSLATOR,  SEL  PHASE  1,  SEL  PHASE 
2,  SEL  PHASE  3).  Columns  13-80  contain  12-9  punches  making  the 
headers  easy  to  locate  in  the  uninterpreted  deck. 


-142- 


The  Character  Code  Conversion  Program  may  now  be  used  to  translate 
the  new  population  file  to  the  desired  character  set.  The  Selector 
programs  may  be  compiled  and  used  to  select  the  other  C C V/S  utility 
programs  and  tests. 

NORMAL  End  of  Job  Message 

END  OF  30B  -  Normal  end  of  job  has  been  reached. 

ABNORMAL  End  of  Job  Messages 

1.  I/O  ERROR  TAPE1  -  An  error  occurred  reading  the  input  tape  on  1(32. 

2.  I/O  ERROR  TAPE2  -  An  error  occurred  writing  the  output  tape  on  1B3. 

3.  I/O  ERROR  PUNCH  -  An  error  occurred  punching  the  output. 

In  all  cases,  rerun  job. 
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APPENDIX  VIII 


SAMPLE  CONTROL  CARDS  FOR  CHARACTER  CONVERSION  PROGRAM 

The  following  unusual  characters  appear  in  the  control  cards: 

character  card  code 


12-7-8 


11-7-8 


0 

t 


12-2-8 

12-0 

0-5-8 


2-8 


For  illustrative  purposes,  all  of  the  cards  shown  below  contain 
the  complete  range  of  characters  that  differ  among  the  four 
implementations.  In  actual  use,  a  pair  of  S0URCE/080ECT  cards 
need  only  contain  those  characters  that  differ  between  the  two 
implementations  in  question.  For  example,  the  cards  for  the 
IBM/360  to  B-3500  conversion  need  only  contain  the  quote  (f  to  M). 


The  sample  control  cards  are  as  follows: 

I8M/360 

S0URCE181C8(  );+=><  '  & 

CDC-6400 

((8  3  E  C  II  8  0  fl  8  Jin  I  &  #  — i  0  @  & 

GE-635 

0BOECT1  8  0  A  8  (  )  ;$_=+>& 

8-3500 

0BOECT182C8(  );+=><"& 

U-1108 

0BJECT18OA8%n;&#  =  +  @: 
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